NPS67-82-01CR 


NAVAL  POSTGRADUATE  SGHOO 

Monterey,  California 


CONTRACTOR    REPORT 


FURTHER    DEVELOPMENT   OF    A    DUAL-PROBE    DIGITAL 

SAMPLING     (DPDS)     TECHNIQUE    FOR 
MEASURING    FLOW    FIELDS    IN    ROTATING    MACHINES 

F.  Neuhoff 
EDM  Corporation 
P.O.  Box  2019 
Monterey,  CA   9  39  40 

September  19  82 


Contractor  Report 


Approved  for  public  release;  distribution  unlimited 

Prepared   for: 

Naval   Postgraduate   School 

Monterey,    California      9  3943 


FEDDOCS 

D  208.14/2 

NPS-67-82-01CR 


HI  $ 


NAVAL  POSTGRADUATE  SCHOOL 
Monterey,  California 


Rear  Admiral  J.  J.  Ekelund 
Superintendent 


D.  A.  Schrady 
Provost 


The  work  reported  herein  was  carried  out  for  the  Naval 
Postgraduate  School  by  BDM  Corporation  under  Contract  Number 
N00014-79-C-0088.   The  work  was  part  of  a  program  to  develop 
improved  methods  for  transonic  turboaerodynamics  and  was 
funded  in  part  by  the  Office  of  Naval  Research,  Project  SQUID 


This  report  was  prepared  by 


WILLIAM  M.  TOLLES 
Dean  of  Research 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  (Whin  Date  Entered) 


?ARY 


REPORT  DOCUMENTATION  PAGE 


I.     REPORT   NUMBER 

NPS67-82-01CR 


2.  GOVT  ACCESSION  NO 


J_ 


READ  INSTRUCTIONS 
3EFORE  COMPLETING  FORM 


*H 1      SCHOOL 


3.     RECIPIENT'S  CATALOG  NUMBER 


4.     TITLE  (and  Subtitle) 

Further   Development  of   a  Dual-Probe   Digital 
Sampling   (DPDS)    Technique   for  Measuring  Flew 
Fields   in   Rotating  Machines 


7.     AUTHOR^; 


F.    NEUHOFF 


9.  PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 

BDM  Corporation 
P.  0.  Box  2019 
Monterey,  CA  93943 


.     CONTROLLING  OFFICE   NAME   AND   ADDRESS 

Naval  Postgraduate  School 
Monterey,  CA  93943 


14.     MONITORING   AGENCY   NAME   a    ADDRESS.-//  dlllerent   /root   Controlling  Olllce) 


5.     TYPE  OF  REPORT  a  PERIOD  COVERED 

Contractor    Report 
January   1982-December   1982 


«.  PERFORMING  ORG.  REPORT  NUMBER 


•.  CONTRACT  OP  GRANT  NUMBER(»J 

N00CUi-79-C-0088 


10.     PROGRAM  ELEMENT.  PROJECT,  TASK 
AREA  ft   WORK  UNIT  NUMBERS 


12.     REPORT  DATE 

September   1982 


13.     NUMBER  OF  PAGES 

209 


IS.     SECURITY  CLASS,  (ol  thlt  report) 

UNCLASSIFIED 


i!«.     DECLASSIFICATION/  DOWNGRADING 
SCHEDULE 


16.     DISTRIBUTION   ST  ATEMEN  T  (ol  thta  Report) 


Approved  for  public  release,  distribution  unlimited. 


17.     DISTRIBUTION  STATEMENT  (ol  the  abetract  entered  In  Block  20,  II  dlllerent  from  Report) 


18.     SUPPLEMENTARY   NOTES 

Final  Report.   Principal  Investigator,  Dr.  R.  P.  Shreeve,  Turbopropulsion 
Laboratory,  Code  67Sf,  Naval  Postgraduate  School,  Monterey,  CA   93943. 


19.     KEY  WORDS  (Continue  on  reverse  tide  II  neceeemry  ana  Identity  by  block  number) 

Compressor  Measurements 
High  Response  Probes 
Turbomachinery  Flow  Fields 


20.     ABSTRACT  :  Continue  on  reveree  elde  II  neceeeary  end  Identity  by  block  number) 

Following  a  review  of  the  technique,  detailed  descriptions  are  given  of 
the  procedures  developed  for  calibrating  and  applying  a  system  of  two  simple 
semi-conductor  (Kulite)  pressure  probes  to  measure  the  velocity  field  from  a 
high  speed  rotor.  Calibration  tests  of  a  "second  generation1'  probe  set  in  a 
steady  free  jet,  procedures  for  deriving  calibration  equations  and  subsequent 
verification  tests  are  described  in  turn.  Data  reduction  procedures  and 
software  involved  in   the   application   of  the  probe  system  with   controlled 


DO 


FORM 
I   JAN    73 


1473  EDITION  OF    I  NOV  65  IS  OBSOLETE 

S/N  0102-  LF-  014-  6601 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  (When  Data  Entered) 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  (1Wi«n  Dmtm  Bntmrmd) 


digital  data  sampling,    to  obtain  the  blade-to-blade  velocity   field  in   a 
machine   are   documented  with  examples   of  results.      Successes   and  potential 
problems   are  evaluated. 


s/N  0,02-  lf.  ou.  6601  UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAGEfWTien  Dmtm  Entered) 

ii 


TABLE  OF  CONTENTS 

Page 
LIST  OF  TABLES 

LIST  OF  ILLUSTRATIONS 

1 .  INTRODUCTION 1 

2 .  MEASUREMENT  CONCEPT 2 

3 .  SECOND  GENERATION  PROBES 6 

3.1.   Probe  Design 6 

3 . 2    Temperature  Sensitivity 7 

4 .  PROBE  CALIBRATION 9 

4.1.  Calibration  Procedure 9 

4.2.  Data  Acquisition  and  Storage 11 

4.3.  Type  "A"  Probe  Results 12 

4.4.  Type  "B"  Probe  Results 13 

4.5.  Calibration  Data  Analysis 13 

5 .  VERIFICATION  TESTS 19 

5.1.  Verification  Using  Calibration  Data 19 

5.2.  Verification  on  the  Freejet 23 

6 .  APPLICATION  IN  COMPRESSOR  TESTS 26 

6.1.   Necessity  of  an  Online-Calibration 26 

6.2    Online  Calibration 27 

6.2.1.  Procedure  for  Slope 28 

6.2.2.  Procedure  for  Type  "A"  Probe 
Intercept 23 

6.2.3.  Procedure  for  Type  "B"  Probe 
Intercept 32 

6.3.  Data  Acquisition  in  TX-compressor 
Measurements 3  3 

6.4.  Data  Reduction 37 

iii 


6.5.   Data  Presentation  and  Evaluation 42 

7  .   DISCUSSION  AND.  CONCLUSIONS 44 

APPENDIX  A.   CHANGES  MADE  TO  SOFTWARE  FROM 

(REF.  4) 98 

APPENDIX  B.   OUTPUT  CHARACTERISTICS  OF  TYPE  "A" 

AND  TYPE  "B"  PROBES 10  5 

APPENDIX  C.   DATA  ACQUISITION  PROGRAMS  &KALIB  AND 

&YAW 10  8 

APPENDIX  D.   DATA  REDUCTION  PROGRAMS  &REST8  AND 

&REST9 123 

APPENDIX  E.   DATA  EVALUATION  PROGRAM  &EVALU 129 

APPENDIX  F.   CALIBRATION  TEST  PROGRAM  &TEST 140 

APPENDIX  G.   CALIBRATION  DATA  (C    )  APPROXIMATION 

PROGRAM  &RES10 .?. 149 

APPENDIX  H.   TEST  DATA  ACQUISITION  PROGRAM  &A3KUL 154 

APPENDIX  I.   PROCESSING  PROGRAMS  &SPLIT  AND 

&WAVE  FOR  TEST  DATA 166 

APPENDIX  J.   DATA  REDUCTION  PROGRAM  SABRED 17  6 

APPENDIX  K.   PLOTT  PROGRAMS  FOR  REDUCED  DATA 199 

REFERENCES 205 

DISTRIBUTION  LIST 206 


IV 


HOOL 


LIST    OF    TABLES 

Page 

I .  Data  Acquisition  System  Hook  Up  50 

II.  Raw  Calibration  Data  from  A-probe,  One  Mach 

Number,  One  Pitch  Angle 51 

III.  Raw  Data  File  Name  Arrangements  (A-probe) 52 

IV.  Raw  Data  File  Name  Arrangements  (B-probe) 53 

V.  All  Reduced  Data  from  File  ABNEW2 54 

Via.   Coefficients  and  Errors  for  Mach  Number 

(X  ,  )  Approximation 55 

vel   rr 

VIb.   Coefficients  and  Errors  for  Pitch  Angle  (<{>) 

Approximation 55 

VII.  Errors  in  Mach  Number,  Pitch-  and  Yaw  Angle  for 
the  Application  of  Calibration  Procedure  to 
Calibration  Raw  Data 56 

VIII.  Errors  in  Mach  Number,  Pitch-  and  Yaw  Angle  for 

A-  and  B-  Probes  Application  Test  in  Free  jet 57 

IX.  Cp  „   for  all  Calibration  Configurations  of  Mach 
Number  and  Pitch  Angle 58 

Xa.    Online  Calibration  Data  for  Actual  Compressor 

Test  (Run  #119) 59 

Xb.    Raw  Steady  State  Data  from  A-  and  B -Probe 

Measurement  (Run  #119) 60 

XI.  Arrangement  of  Data  Within  Raw  Data  File 61 

XII.  Explicit  Output  of  Reduced  Data  (Run  #119) 62 

XIII.  Reduced  Data  for  the  First  Blade  Passage  of 

Run  #119 6  3 

XIV.  Errors    in  Mach  Number,    Pitch-    and  Yaw  Angle    for 
Varying  Velocity   Vectors 64 

A-I         Results    Using   Uncorrected  Subroutine    RPACE(&A2D, 

(Ref.    4) 101 


v 


Page 

A-II   Results  Using  Corrected  Subroutine  RPACE ( &A2D) , 

(Ref.  4) 102 

G-I    Coefficients  and  Errors  for  C    Approximation 

Depending  on  X   .  and  $ ... 151 


VI 


LIST  OF   ILLUSTRATIONS 

Page 

1.  Probe   Arrangement  in  Transonic   Compressor 6  5 

2.  Controlled    (Paced)    Sampling   Technique 66 

3a.      A-Probe   Pressure    (Gauge)    vs.    Yaw  Angle 67 

3b.      B-Probe   Pressure    (Gauge)    vs.    Yaw  Angle 68 

4.  High   Response   Transducer  Probes 69 

5.  Temperature   Sensitivity   of   a  Kulite-Transducer. . . .  70 

6a.      Calibration  Facility   Geometry    (not   to   scale) 71 

6b.      Free- Jet   Calibration  Apparatus 7  2 

6c.      Data  Acquisition  System 73 

7.  Pressure    Readings   vs.    Yaw  Angle 74 

8.  Kulite   Transducer  Output   Depending   on   Time 75 

9.  Type   A-Probe   Calibration   Data   at  Mach   =   0.4 76 

10.         Type   B-Probe   Calibration   Data    at  Mach   =   0.4 77 

11a.      Probe   Tip  with   Dirt   in   Some   Holes    • 78 

lib.      Probe   Tip  with   Dirt   in  Some   Holes 73 

12.  Type   B-Probe   Calibration   Data   at  Mach   =   0.4 79 

13.  Type   A-Probe   Output  Demonstrating  Characteristic 
Values 80 

14.  Type   B-Probe   Calibration   Data 81 

15a.      Approximation   of   X    (resp.    Mach  Number)    as 

Function  of    Coefficients      3      and     y 82 

15b.      Approximation  of   Pitch   Angle      <j>      as    Function   of 

Coefficients      3      and      7 83 

16.  Errors    as   Specified   Depending   on  Mach  Number    and 
Pitch   Angle 84 

17.  Combination  Pressure    Temperature  Probe 

(Tip   Detail) 85 


Vll 


Page 

18.  Pressure  Coefficient  for  Type  A-Probe  at  Zero 
Yaw  Angle  as  Function  of  Mach  Number  and 

Pitch  Angle 8  6 

19.  Pressure   Coefficient   for   Type   B-Probe    for   Zero 
Yaw  Angle   as    Function   of  Mach  Number  and 

Pitch   Angle 87 

20a.  Paced   Data   from  Type   A-Probe 88 

20b.  Paced   Data   from  Type   A-Probe 89 

20c.  Paced   Data   from  Type  B-Probe 90 

20d.  Paced   Data   from  Type   B-Probe 91 

21.  Measurement   Results    at   50%    Speed,    Midspan,    Peek 
Efficiency 92 

22.  Relative   Velocity   Distribution     W2      at   Roton 
Trailing   Edge    (schematic) 93 

23.  Velocity  Triangles    for  Varying  Values    of    the 
Relative   Velocity  JC, 94 

24.  Dependence  of  Absolute    (Xv)    and   Relative    (Xw) 
Velocities    on  Yaw  Angle 95 

25.  Influence   of   Incorrect  Pneumatic  Probe   Pressure 
Readings    Run   119 96 

26.  Pressure  Coefficient  Versus   Yaw  Angle    for 
Type   A-Probe   at  Specific  Positions    in   Rotor 

Flow   Field 97 

A-l.   Unchanged  Listing  of  Subroutine  RPACE  from 

Program  &  A2D 103 

A-2.   Corrected  Statement  of  Subroutine  RPACE  from 

Program  &  A2D 104 

B-l.   Indicated  Pressure  Versus  Yaw  Angle  for  a 

Pneumatic  Probe  Equivalent  to  a  Type  A-Probe 107 

C-l.   Flow  Chart  of  Data  Acquisition  Program  &  Yaw 114 

C-2.   Listing  of  Calibration  Data  Acquisition  Program 

&  YAW 115 

C-3.   Flow  Chart  of  Data  Acquisition  Program  &  KALIB....  118 


Vlll 


Page 

C-4.      Listing   of    Calibration   Data  Acquisition  Program 

&  KALIB 119 

Flow  Chart  of  Data  Reduction  Program  &  REST  8/9...   126 

Listing  of  Reduced  Data  Approximation 

Program  &  REST9 127 

Flow  Chart  of  Data  Evaluation  Promgram  &  EVALU. . . .   134 

Listing  of  Calibration  Data  Evaluation  Program 

&  EVALU 135 

Flow  Chart  of  Calibration  Evaluation  Program 

&  TEST 144 

Listing  of  Program  to  Test  the  Quality  of  the 
Calibration:  &  TEST 145 

Listing  of  Program  to  Approximation  CL  B 

Values:  &  RES  10 ... 152 

Flow  Chart  of  Data  Acquisition  Program  &  ABKUL. . . .   159 

Listing  of  Data  Acquisition  Program  &  ABKUL 161 

Listing  of  Program  to  Split  Up  Big  Raw  Data 

Array  from  A-  and  B-  Probes  into  Two 

Smaller  Arrays:  &  SPLIT 170 

1-2.   Flow  Chart  of  Data  Acquisition  and  Plotter 

Program  &  WAVE 17  2 

1-3.   Listing  of  Program  to  Plott  Raw  Data  Waveforms: 

&  WAVE 17  4 

J-l.   Flow  Chart  of  Data  Reduction  Program  &  ABRED 183 

J-2.   Listing  of  Data  Reduction  Program  &  ABRED 190 

K-l.   Flow  Chart  of  Plot  Programs  &  PLOTX,  s  PLOTY 

or  &PLOTP 203 

K-2.       Listing   of    Reduced   Data  Plot  Program   &   PLOTX 204 


D- 

■1. 

D- 

■2. 

E- 

■1. 

E- 

■2. 

F- 

•1. 

F- 

■2. 

G- 

■1. 

H- 

-1. 

H- 

•2. 

I- 

•1. 

IX 


1 .   INTRODUCTION 

The  development  of  the  measurement  technique  reported 
here  was  required  for  the  determination  of  the  periodic  flow 
field  behind  the  rotor  of  a  small,  single-stage  axial  com- 
pressor.  With  the  rotational  speed  of  the  rotor  of  30,000 
RPM  at  design  conditions,  the  18  blades  of  the  rotor  result 
in  a  blade-passage  frequency  of  9  Khz.   Thus  a  high  response 
measurement  technique  was  essential.   As  reported  earlier 
in  Ref.  1,  the  means  for  determining  the  time-averaged  flow 
at  all  speeds  is  available,  and  such  measurements  have  been 
made  to  50%  speed. 

The  basic  idea  of  the  present  technique  was  established 
some  time  ago  (Refs.  2,  3,  4) .   This  report  gives  a  brief 
review  of  the  measurement  concept,  results  obtained  with  a 
first  set  of  probes,  and  describes  in  detail  the  calibration 
and  application  of  a  new  set  of  probes.   The  new  probes  have 
the  advantage  of  being  only  two-thirds  the  size  of  the  old 
ones . 


2.   MEASUREMENT  CONCEPT 

As  described  in  detail  in  Ref.  2,  a  dual-probe  digital 
sampling  technique  is  used  to  determine  the  flow  field  behind 
the  rotor  in  a  real  time  regime.   The  technique  incorporates 
two  high  response  Kulite  pressure  transducers  (Fig.  1). 
Using  two  trigger  signals  from  the  compressor  shaft  (one  per 
revolution  and  one  per  blade) ,  digitization  of  signal  data 
can  be  controlled  from  the  probes  which  are  shown  in  Fig.  2. 
128  locations  can  be  selectively  triggered  for  any  one  blade 
passage,  thus  giving  good  resolution  for  the  specific  area  to 
be  covered.   The  control  device  for  the  computer  acquisition 
of  the  data  is  the  PACER.   Details  of  this  device,  which  was 
developed  in-house,  can  be  found  in  Refs.  2  and  3. 

Two  major  changes  to  the  hard-  and  software  of  the  PACER 
were  made  recently  which  are  reported  in  Ref.  4.   These 
changes  made  the  lock-on  to  blade  passing  frequency  totally 
automatic  and  reliable,  and  significantly  reduced  the  total 
time  for  acquisition  of  a  set  of  data.   During  the  period 
reported  here,  several  errors  were  found  in  the  work  pre- 
sented in  Ref.  4;  Appendix  A  identifies  the  errors  and  their 
corrections . 

The  measurement  system  consists  of  two  pressure  probes, 
one  the  so-called  type  "A"  probe  which  is  essentially  a  total 
pressure  probe,  and  the  so-called  type  "B"  probe,  a  total 


pressure  probe  bent  up  35°  from  the  zero  pitch,  zero  yaw 
axis,  in  the  plane  of  zero  yaw.   The  PACER  allows  data  to  be 
acquired  from  each  of  the  two  probes  when  they  are  at  identi- 
cally the  same  location  with  respect  to  the  rotor.   The 
probes  can  be  rotated  about  the  sensor  tip.   It  is  noted  that 
their  outputs  when  set  at  different  yaw  angles  could  as  well 
be  considered  as  the  output  of  different  probes  of  fixed 
geometry.   Earlier  studies  have  shown  the  dependency  of  a 
total  pressure  and  a  type  "B"  probe  on  yaw  angle.   Appendix 
B  gives  a  brief  discussion  and  outlines  the  use  which  can  be 
made  of  the  probe  characteristics. 

In  knowing  the  output  for  a  certain  yaw  angle  of  the  "A" 
probe  and  its  output  for  zero  yaw  angle,  as  well  as  the  out- 
put of  the  "B"  probe  for  zero  yaw  angle  at  the  same  relative 
location,  three  different  pressures  are  known  for  what  might 
be  considered  to  be  a  single  equivalent  multi-sensor  probe. 
Reference  1  shows  how  such  pressures  can  be  reduced  to  values 
of  pitch,  yaw,  and  magnitude  of  the  velocity  vector.   The 
zero  yaw  angle  must  be  found  first  by  comparing  the  left-  and 
right-hand  sides  of  the  type  "A"  probe  output  as  a  function 
of  yaw. 

As  shown  in  Appendix  B,  the  type  "A"  probe  output  as  a 
function  of  yaw  angle  in  a  steady  uniform  flow  is  symmetrical 
about  a  position  where  the  probe  is  aligned  with  the  flow 
(referred  to  as  the  zero  yaw  position) .   if  in  an  unknown 
flow  the  yaw  angle  is  not  zero,  by  rotating  the  probe  and 


finding  two  equal  pressure  readings  separated  by  a  certain 

angle  difference  and  selecting  the  mid-point  between  the  two 

corresponding  angles,  the  unknown  yaw  angle  can  be  determined. 

This  procedure  is  in  principle  the  same  as  the  pneumatic 

balancing  of  a  conventional  probe  (see  Ref .  1) .   However,  in 

an  actual  measurement  situation  the  pressure  output  is  not 

given  as  a  continuous  function  of  yaw  angle.   In  practice, 

the  data  acquisition  system  allows  digital  recording  of  data 

for  5  to  11  different  probe  yaw  angles.   Figs.  3(a)  and  3(b) 

give  a  comparison  of  calibration  data  and  an  approximation 

using  a  fourth-order  polynomial  for  nine  data  points.   It 

is  evident  that  the  characteristics  of  the  probes  allow  a 

good  representation  of  their  output  to  be  obtained  for 

P.  =  Pn(ct)  and  PR  =  PR(a)    (a  =  yaw  angle)  if  only  a  few  values 

are  given.   From  these  analytic  functions  the  values  P, 

a  max 

(maximum  output  of  the  "A"  probe) ,  PR  (maximum  output  of 
the  "B"  probe)  and  a  value  Ps  can  be  determined  very  easily. 
Ps  is  found  from  P.  =  P .(a)  where  a  difference  in  yaw  of  126° 
separates  right  and  left  branches.  This  difference  is  chosen 
because  for  ±63°  of  yaw  the  type  "A"  probe  output  corresponds 
closely  to  static  pressure. 

Details  of  the  methods  used  to  derive  the  pitch  angle  and 
Mach  number  from  the  values  of  PA  max/  ?Sa  and  PB  max  wil1  be 
discussed  later  in  detail. 

In  acquiring  data  from  the  compressor  at  a  steady  operating 
condition,  for  each  of  128  positions  in  the  blade-to-blade 


direction  across  a  selected  blade  passage,  pressure  data  are 
acquired  from  the  two  probes  set  at  5  to  11  probe  yaw  angles. 

Thus  at  each  blade-to-blade  position  P   =  P  (a)  and  P_.  =  PD  (a] 

a    a         ii  a 

can  be  approximated  and  yaw  and  pitch  angles  and  Mach  numbers 
can  be  derived. 


3.   SECOND  GENERATION  PROBES 

In  order  to  improve  spatial  resolution  and  keep  effects 
such  as  the  probe  stem  interference  as  small  as  possible,  a 
new  set  of  Kulite  probes  was  built. 

3. 1  Probe  Design 

The  so-called  second-generation  probes  incorporate  Kulite 
semi-transducers  of  the  type  XC062.   The  transducers  measure 
0.062  inches  in  diameter  and  are  roughly  two-thirds  of  the 
size  of  the  first  generation  transducers.   Figure  4  shows 
the  probes  in  detail.   The  other  difference  compared  to  the 
first  probes  is  the  angle  of  the  tip  of  the  "B"  probe;  it  is 
at  35°  rather  than  55°  with  respect  to  the  zero  axis.   The 
reason  is  that  for  a  range  of  30°  to  50°  angle  of  attack  the 
relationship  between  pressure  output  and  angle  of  an  inclined 
pressure  probe  is  almost  linear,  while  for  higher  angles  it 
can  reach  a  minimum  and  become  double  valued.   An  angle  of 
35°  should  give  good  resolution  for  pitch  angles  in  the  range 
of  -5°  to  +15°. 

The  probe  tips  are  covered  with  machined  caps  which  have 
eight  holes  arranged  in  a  circle.   This  way  the  area  where 
the  transducers  are  located  is  shielded  while  there  is  still 
sufficient  area  for  the  air  to  get  into  and  out  of   the  minute 
volume  above  the  membrane.   A  frequency  response  in  excess  of 
100  Khz  is  retained  when  the  screen  is  used. 


3,2.   Temperature  Sensitivity 

High  response  semiconductor  transducers  are  generally 
sensitive  to  temperature  changes.   That  is,  changes  in  the 
temperature  of  the  surrounding  medium  will  produce  changes 
in  the  indicated  pressure  although  there  has  been  no  change 
in  the  pressure  level.   In  the  transducer  manufacturer's 
specifications  it  is  quoted  that  a  change  of  100  F  might 
result  in  a  misreading  of  as  much  as  2%  of  the  full  range 
(25PSI)  of  pressure.   On  request  the  transducers  can  be 
built  so  that  only  0.5%  misreading  for  the  same  conditions 
should  result.   Thus  a  100  F  temperature  change  should  pro- 
duce no  more  than  0.125  PSI  or — equivalently — 3.46"  H20 
misreading. 

The  relationship  between  transducer  voltage  output  and 
pressure  is  known  to  be  linear  (Refs.  2  and  3) .   Temperature 
changes  result  mainly  in  a  shift  of  the  intercept  rather 
than  the  slope  of  the  linear  relationship.   Since  the  tempera- 
ture of  the  flow  in  the  compressor  is  expected  to  be  about 
50  F  higher  than  ambient,  an  error  of  1.7"  H^O  might  be  ex- 
pected to  be  present  in  the  pressure  measurement  if  no  account 
was  taken  of  the  temperature  sensitivity,  assuming  the 
manufacturer's  specification  to  be  accurate. 

A  simple  test  was  made  to  check  the  temperature  sensi- 
tivity of  the  "B"  probe.   The  probe  was  inserted  into  a  con- 
tainer which  was  vented  to  atmospheric  pressure  but  which 
could  be  heated.   With  the  probe  connected  to  the  data 


acquisition  system  in  the  usual  way,  the  container  tempera- 
ture was  changed  and  the  voltage  output  of  the  probe  was  re- 
corded.  Figure  5  shows  the  effect  of  a  temperature  change 
of  about  6  0  F  over  a  period  of  four  minutes.   A  corresponding 
increase  of  some  2.4"  of  water  in  the  indicated  pressure  was 
observed,  corresponding  to  about  0.6%  of  the  full  transducer 
range  for  a  temperature  change  of  100°F.   This  was  consistent 
with  the  sensitivity  quoted  by  the  manufacturer. 

For  an  average  flow  Mach  number  in  the  compressor  of 
0.7,  with  a  corresponding  dynamic  head  of  154  inches  of  water, 
an  apparent  shift  in  the  transducer  intercept  of  1  to  2  inches 
of  water  is  not  large.   Also,  since  the  shift  would  be  similar 
at  different  probe  angles  (assuming  the  transducer  tempera- 
ture would  not  change  significantly) ,  measurements  based  on 
differences  between  pressures  from  the  same  probe  set  at  dif- 
ferent angles,  would  be  little  affected.   However,  as  readings 
from  the  "A"  and  "B"  probe  are  both  involved  in  calculating 
the  pitch  angle,  the  probes  must  give  absolute  pressure 
levels  accurately.   Therefore  there  is  need  for  on-line  cali- 
bration as  data  is  acquired  at  any  new  test  condition. 


4.   PROBE  CALIBRATION 

4.1.   Calibration  Procedure 

The  range  of  Mach  number,  pitch  and  yaw  angle  over 
which  the  probes  were  calibrated,  had  to  cover  the  ranges 
which  were  expected  in  the  compressor  measurements.   The 
freejet  used  for  the  calibration,  which  is  described  in 
Ref.  1,  is  capable  of  Mach  numbers  up  to  0.9,  pitch  angles 
from  -45   to  +45   and  yaw  angles  from  0°  to  360°.   Figures 
6(a),  (b)  and  (c)  show  details  of  the  probe  hook-up  and  in- 
strumentation which  was  used.   Table  I  gives  the  input/output 
assignment  list  for  the  data  acquisition  system. 

The  "A"  and  "B"  probes  were  calibrated  separately. 
The  probe  outputs  were  each  recorded  for  a  total  of  9 
pitch  angles  (-15   to  +25   in  5   increments)  and  6  Mach 
numbers  (0.2  to  0.7  in  0.1  increments).   For  each  of  these 
54  configurations  the  probes  were  yawed  from  -80   to  +80  , 
as  data  were  continuously  recorded.   This  procedure  served 
to  establish  the  complete  pressure  vs.  voltage  output 
characteristics  of  the  probes,  information  to  be  used 
later  in  the  analysis  and  interpretation  measurements  in 
the  compressor. 

The  transducers  were  scaled  using  bridge  adjustments 
to  give  engineering  units  on  the  DVM.  The  angle  potenti- 
ometer was  set  to  read  linearly  in  increments  of  0.1  . 


The  Kulite  transducers  were  scaled  to  read  in  increments 
of  .01  inches  of  water,  differential  pressure.   The  slope 
and  intercept  of  the  Kulite  transducer  were  checked  and 
adjusted  as  necessary  before  taking  data  at  each  new  test 
condition.   The  intercept  was  adjusted  to  zero  by  applying 
the  jet  reference  stagnation  pressure  to  the  reference 
side  of  the  probe  transducer  with  the  prcbe  tip  aligned 
with  the  flow  and  balancing  the  transducer  bridge.   The 
slope  was  set  by  adjusting  the  output  of  the  transducer 
to  be  equal  to  the  jet  stagnation  pressure  with  atmos- 
pheric pressure  as  reference. 

For  each  configuration  of  probe,  Mach  number,  and 
pitch  angle,  the  procedure  was  as  follows: 

(i)     Reference  measurements  for  the  jet  (stagna- 
tion pressure  and  temperature,  and  ambient 
pressure)  were  recorded. 

(ii)    The  probe  was  swept  steadily  from  -80   to 
+80   yaw  angle  as  150  data  values  of  both 
probe  voltage  output  and  yaw  angle  potenti- 
ometer reading  were  acquired  by  the  computer 
(Fig.  6).   The  jet  reference  measurements 
were  recorded  again. 

(iii)  The  procedure  in  (ii)  was  repeated  but  with 
the  probe  yaw  angle  swept  back  from  +80  to 
-80°. 

The  three  sets  of  reference  measurements  were  com- 
pared to  verify  the  steadiness  of  the  test  conditions. 
When  all  data  were  taken,  a  printout  was  produced  on  the 
line  printer  and  a  plot  of  pressure  versus  yaw  angle 
was  generated  on  the  X-Y  plotter. 
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For  each  probe,  the  procedure  in  (i)-(iii)  was 
repeated  for  each  pitch  angle  with  the  jet  Mach  number 
fixed.   The  jet  Mach  number  was  then  adjusted  to  the  next 
value  and  the  complete  procedure  repeated  again. 

4.2.   Data  Acquisition  and  Storage 

For  each  of  the  54  configurations  a  total  of  640 
numbers  were  stored  in  one  data  file  as  a  2  by  320  array. 
The  computer  program  used  for  the  data  acquisition  was 
&KALIB  (on  cartridge  26,  FORTRAN  IV).   The  program  is 
listed  in  Appendix  C  together  with  program  &YAW  (on  car- 
tridge 26,  FORTRAN  IV).   Both  programs  (&KALI3  and  &YAW) 
are  acquisiton  programs  for  the  calibration  of  type  "A" 
and  "B"  probes.   The  difference  is  that  program  &YAW  re- 
cords--in  a  more  conventional  way--data  from  one  fixed 
yaw  position  as  the  average  of  ten  readings  for  up  to  31 
positions,  while  program  &KALIB  gathers  data  for  continu- 
ously varying  yaw  position. 

It  was  found  that  the  average  of  multiple  samples 
taken  at  a  fixed  yaw  position  did  not  give  more  accurate 
results  than  a  single  reading.   Figure  7  shows  a  com- 
parison between  the  output  obtained  with  the  two  different 
data  acquisition  methods.   The  good  agreement  is  an  indi- 
cation of  the  steadiness  of  the  flow  in  the  free  jet. 
Figure  8  shows  the  output  of  a  total  pressure  Kulite 
probe  held  fixed  in  the  jet  over  a  period  of  4  minutes, 
during  which  1000  single  readings  were  recorded.   The 
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largest  disturbances  shown  in  Fig.  8  are  probably  the 
result  of  distinct  changes  in  the  ambient  pressure  re- 
sulting from  doors  being  opened  or  closed  in  the  build- 
ing, rather  than  fluctuations  in  the  jet  itself. 

The  data  acquisition  program  &KALIB  is  fairly 
simple  and  contains  explanations  in  the  program  listing. 
Details  of  the  data  arrangement  in  the  array  are  given  in 
the  program  listing  (Program  &KALIB,  statement  numbers 
46  through  77) . 

4.3.      Type    "A"    Probe    Results 

Figure  9  gives  an  example  of  the  type  "A"  probe 
data  output  at  fixed  Mach  number  for  each  of  nine  pitch 
angles.   Shown  is  the  probe  voltage  output  versus  yaw 
angle.   Such  plots  provided  a  visual  check  of  the  acquired 
data.   Table  II  gives  an  example  of  the  data  recorded  for 
one  Mach  number  and  one  pitch  angle  for  the  "A"  probe. 
All  the  data  in  Table  II  are  stored  in  one  file  for 
each  configuration.   Table  III  gives  a  guide  to  the  data 
files  for  the  "A"  probe  calibration.   They  are  stored  on 
cartridge  26.   The  file  names  follow  the  following 
logic : 

X  Y  K  Z  R  R 
where 

X  =  A  for  the  "A"  probe,  or  =  B  for  the  "B"  probe 

Y  =  2,  3,  4,  .  .  .  — Mach  number  x  10 

K  =  K,  Kulite 
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Z  =  P  for  positive  or  =  N  for  negative  pitch  angle 
RR  =  15,  10,  05,  etc.,  =  magnitude  of  the  pitch  angle 
All  data  taken  for  the  "A"  probe  appeared  to  be  well 
behaved  and  useful  throughout. 

4. 4   Type  "B"  Probe  Results 

First  measurements  with  the  "B"  probe  showed  poor 
to  unusable  results.   The  output  of  the  probe  as  a  function 
of  yaw  angle  was  unsymmetrical  for  positive  or  negative  yaw 
angles.   Figure  10  shows  the  output  at  one  Mach  number,  for 
the  full  range  of  pitch  angles.   An  investigation  of  the 
probe  tip  under  the  microscope  showed  that  some  of  the 
holes  in  the  protective  screen  at  the  probe  tip  were  par- 
tially blocked  by  particles  of  dirt  or  glue  (Fig.  11(a) , 
and  (b)) .   The  holes  were  cleaned  and  the  calibration  rerun, 
Figure  12  shows  the  results  at  a  Mach  number  of  0.4.   The 
characteristics  of  the  probe  were  seen  to  be  much  improved 
and  satisfactory  for  the  intended  application.   Table  IV 
gives  the  list  of  the  data  file  names  as  stored  on  car- 
tridge 26. 

4.5,   Calibration  Data  Analysis 

For  the  "A"  probe  the  output  of  the  probe  as  a 
function  of  yaw  angle  P.  =  ?A(cO  was  analysed  for  each 
of  the  combination  of  Mach  number  and  pitch  angle.   First, 
the  maximum  value,  P   max,  was  calculated  as  the  maximum 
value  of  a  fourth-order  polynomial  curve  fit  in  the 
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-20   < a  <  20  .   Over  this  limited  range  the  curve  P   =  P, ( a) 
was  fairly  flat  and  a  very  precise  determination  of  the 
maximum  value  was  possible.   Second,  to  establish  values 
of  PQ   for  each  curve,  (see  Section  2) ,  the  data  were  surveyed 
to  find  the  yaw  angle  closest  to  -6  3°.   Data  at  this  and 
at  four  values  above  and  four  values  below  this  particu- 
lar yaw  angle  were  approximated  with  a  second-order 
polynominal  and  the  corresponding  value  of  P,,  designated 
pSa   yaw  was  calculate<3.   A  second-order  polynomial  ap- 
proximation for  this  part  of  the  curve  was  adequate  since 
the  characteristic  was  nearly  linear  in  this  range  (see 
also  Appendix  B) .   The  same  procedure  was  used  for  the 
right  hand  side  of  the  characteristic  to  establish  the 
value,  Pe.  ,  at  a  yaw  angle  of  +63°.   The  two  values  were 
found  to  be  the  same  to  within  a  small  deviation  for  all 

54  configurations.   The  value  of  PQ    was  calculated  as 

bA 

the  average  of  Pc,   and  PqA  .   Figure  13  is  an  illustra- 

*       SaL       bAR      ^ 

tion  of  the  data  reduction. 

The  only  data  needed  from  the  "B"  probe  was  the  max- 
imum pressure  output  at  each  test  condition.   This  value 
always  occured  for  a  yaw  angle  of  zero  degrees  when  the 
flow  was  aligned.   The  maximum  was  found  by  approximating 
the  output  values  of  PB  over  the  yaw  angle  range 
-30°  <  a   <  30°  with  a  fourth-order  polynomial  and  solving 
for  zero  slope.   The  corresponding  yaw  angle  was  found 
to  be  very  close  to  zero  for  all  54  configurations. 
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Figure  14  shows  a  curve  P   =  Pt,(cx)  for  one  Mach  number 
and  one  pitch  angle  with  the  value  established  for  Pn  max 

a 

The  values  of  P^  max  ,  Pg  ,  and  P^  max  ,  so  derived, 

A 
were  considered  to  be  analogous  to  the  outputs  of  a 

conventional  pneumatic  multi-sensor  probe.   The  calibra- 
tion and  reduction  of  measurements  to  values  of  Mach 
number  and  pitch  angle  (the  yaw  angle  was  always  zero) 
could  be  handled  in  exactly  the  same  way  as  was  done  for 
the  combination  temperature-pneumatic  probe  (see  Ref.  1) . 

The  dimensionless  velocity,  X,  was  used  instead  of  the 

V 
Mach  number,  M  where  X  is  defined  as  X  =  rj—  where 

V  =  V  2  C   T~,  the  "limiting"  velocity.   The  quantity 

X  can  be  expressed  in  terms  of  Mach  number  as 

X  =  - 


l.I^M2 


For  each  of  the  54  test  conditions,  using  the  values 
P,  max,  Pq  ,  and  P   max,  the  coefficients  £  and  y  were 
calculated  where 

0    PA  max  "  PSa         (1) 

e P 

A  max 

P         P 

y  =  _ A  max  ~  *  B  max      (2) 

PA  max  ~  PsA 
and  a  third  coefficient,  6,  was  examined  where 

5  =  6  '  y 


15 


8   is  derived  from  values  of  the  "A"  probe  only.   The  "A"  probe 
is  insensitive  to  pitch  angle  as  long  as  it  does  not  exceed  +15 
to  +20  .   Hence   y   provides  the  measurement  of  the  pitch  angle. 
The  coefficients   3  ,    Y  #  an^   o   are  discussed  in  detail  in 
Ref.  1. 

The  data  for  a  complete  calibration  are  given  in  Table  V. 
It  can  be  seen  that  at  fixed  Mach  number  the  value  of   3   is 
always  about  the  same  regardless  of  the  pitch  angle  while   y 
changes  significantly  with  pitch  angle.   The  changes  in   y   with 
changes  in  Mach  number  are  seen  to  be  small. 

If   X   is  expressed  as  a  function  of   3   and   y  ,  X  =  X(3,y) 
and   (J)  ,  the  pitch  angle  is  expressed  as  a  function  of   3   and 
y  ,  <J>  =  cf>(3,y)   the  functions   X(3,y)   and   cj>(3,y)   can  be 
approximated  with  polynomials  using  the  methods  described  in 
Ref.  6,  such  that 

L  {      M 


♦  -    M   Id_6^-d  I     „(i-u 


where   C.  .   and   D.  .   are  constant  coefficients.   Figs.  15(a) 
ID       i: 

and  (b)  show  the  surfaces  which  were  obtained  for   X(3,y)   and 
4>(3,y)  r    respectively. 

The  programs  written  to  approximate   X  =  X(8,y)   and 
<J)  =  <£(3,y)  ,  based  on  the  subroutines  given  in  Ref.  6,  are 
&REST8  and  &REST9.   The  programs  are  described  in  detail  in 
Appendix  D.   It  is  noted  that  the  coefficients  were  derived 
for  the  pitch  angle  expressed  in  radians. 
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A  check  of  the  approximation  was  performed  in  order 
to  establish  its  quality.   For  the  measurements  of  3  and  y 
from  the  calibration  X  and  <t>   were  calculated  using  equations 
(3)  and  (4).   The  results  were  compared  with  the  corres- 
ponding values  known  to  have  been  set  when  the  measure- 
ments were  made.   Errors  in  the  dimensioniess  velocity,  £y  , 
and  errors  in  the  pitch  angle,  e...    were  defined  as 

m    c 

£X  "    X      *  100      (5) 

m 

and 

q>     rm    •  c 
where  the  subscription  m  denotes  the  value  measured  or  known 
to  have  been  set  and  subscript  c  denotes  the  value  calcu- 
lated using  the  surface  approximation. 

The  error  ex  is  expressed  as  a  percentage  of  the 
measured  value  while  for  the  pitch  angle  the  absolute  dif- 
ference in  degrees  between  measurement  and  calculation  is 
calculated.   A  percentage  error  in  angle  is  meaningless 
close  to  zero  pitch  angle. 

Table  VI  gives  the  coefficients  obtained  for  the  X 

and  <i>    surfaces.   Also  shown  are  the  errors  £v   and  e, 

X       cp 

obtained  using  equation  (3)  and  equation  (4).   Approxi- 
mations were  derived  for  each  of  36  possibilities  con- 
sisting of  combinations  of  first  to  sixth  order  approxi- 
mation for  3  and  first  to  sixth  order  approximation  for  y. 
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The  coefficients  shown  in  Table  VI  gave  the  best  results 
on  average  over  the  range  of  the  calibration.   They  are 
stored  as  7  by  7  arrays  under  the  file  names  shown  on 
cartridge  26.   It  is  noted  that  the  errors  shown  in  Table 
VI  are  an  indication  only  of  the  degree  of  accuracy  of 
the  approximation  technique. 
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5 .   VERIFICATION  TESTS 

Two  tests  to  evaluate  the  accuracy  of  the  calibration 
and  of  the  data  reduction  technique  were  made:   (1)   The 
raw  data  from  the  calibration  were  treated  as  test  data 
and  the  reduction  procedure  to  calculate  X  and  <J)  was  applied; 
(2)   The  probes  were  mounted  together  on  the  freejet,  the 
flow  was  adjusted  in  Mach  number  and  the  two  probes  were 
set  together  to  the  same  pitch  angles,  which  were  unknown 
to  the  operator  (see  5.2.) .   Data  were  acquired  at  specific 
yaw  angles  and  reduced  as  in  the  compressor  application. 
The  results  are  described  in  the  following  paragraphs. 

5.1.   Verification  Using  Calibration  Data 

From  the  calibration  test,  the  pressures  for  the 
"A"  and  "B"  probe  were  recorded  for  fixed  Mach  number  and 
pitch  angle  as  P,  =  P,(a)  and  ?„  =  PB(a)  for  a  range  of 
yaw  angle  of  -3C°    a    80°.   These  distributions  were 
each  approximated  using  a  sixth  order  polynomial,  so  that 
values  P,  and  P3  could  be  interpolated  at  any  yaw  angle. 
For  the  "A"  probe  9  yaw  angles  were  chosen  (+65  ,  +45  , 
+30°,  +15°,  0°)  so  that  the  range  of  yaw  angle  necessary 
to  handle  the  data  reduction  was  covered.   Since  for  the 
"•B"  probe  sufficient  values  are  required  to  determine 
only  the  maximum  output,  9  different  yaw  angles  for  a 
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relatively  small  range  were  chosen  (+30°,  +22.5   +15  , 

+7.5°,  0°).   Arrays  PA(9)  and  YAWA(9)  were  generated  to 

contain  pressure  and  yaw  angles  respectively  for  the  "A" 

probe  and  similarly  PB(9)  and  YAWB(9)  were  generated  for 

the  "B"  probe.   These  data  were  then  in  a  format  as  if 

they  were  produced  by  the  data  acquisition  program  for 

compressor  measurements,  and  could  be  reduced  in  the  same 

way. 

From  the  fourth  order  polynomial  for  the  "B"  probe 

data,  the  maximum  value  P„      and  vaw  angle  at  which  it 

Bmax      -      3 

occured  were  stored,  for  each  data  set. 

PA(9)  vs.  YAWA(9)  and  PB(9)  vs.  YAWB(9)  were  approxi- 
mated using  fourth  order  polynomials.   For  each  data  set 
the  curve  P,  =  PA(cO  was  searched  for  the  yaw  angles  where 
the  spread  between  left  and  right  branches  was  126  . 
Corresponding  to  definitions  used  in  the  reduction  of 
calibration  data,  the  pressure  determined  at  the  left 
branch  was  PC7V   and  the  one  at  the  right  branch  was  Pq„  . 
These  pressures  were  as  defined  here,  the  same  and 
were  equivalently  equal  to  the  value  PgA  (see  Fig.  13)  . 

Ptv  ~    was  calculated  using  the  fourth  order  polynomial 

A  max  ^  c      J 

P,(a)  at  the  value  of  yaw  angle  midway  between  the  values 
corresponding  to  Ps    and  Pg,  . 

3  and  y  were  calculated  using  equations  (1)  and  (2) 
for  each  data  set.  Using  these  values,  the  coefficients 
from  data  files  MISTXV  and  MISTIFI  and  the  aquations  (3) 
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and  (4),  the  corresponding  values  of  X  and  4>  were  computed. 
The  yaw  angle  was  taken  to  be  that  corresponding  to  the 
value  PBmax   because  the  "B"  probe  had  a  clearly  defined 
maximum  whereas  the  "A"  probe  did  not  (see  Figs.  13  and  14). 
The  values  so  obtained  for  X,  <t>,    and  a  using  this  reduction 
technique  were  compared  to  the  corresponding  values  known 
to  have  been  set  and  recorded  during  the  test.   Errors 
were  calculated  following  equations  (5)  and  (6).   A  third 
error,  e  ,  for  yaw  was  calculated  using 

a  m    c 

where   am  was  the  measured  yaw  angle  and   ac  was  the  yaw  angle 

calculated  from  the  "B"  probe  data.   Since  a     was  always 

m         2 

zero  during  the  calibration,  the  error  £   so  defined  was 

r  a 

equal  to  minus  the  value  calculated  in  the  reduction  pro- 
cedure. 

The  calculations  described  required  extensive  data 
handling.   A  program  was  written  (EVALU)  to  read  the  two 
data  files  (for  the  "A"  and  "B"  probes)  and  carry  out  the 
calculations.   The  program  accesses  and  reduces  data  for 
one  configuration  (Mach  number  and  pitch  angle)  at  a  time. 
It  prints  the  calculated  and  measured  values  and  the  errors 
defined  in  equations  (5) ,  (6) ,  and  (7)  before  returning 
automatically  to  read  the  files  for  data  from  the  next 
configuration.   Program  EVALU  is  described  in  detail  in 
Appendix  E. 
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Table  VII  shows  a  comparison  of  the  measured  and 
calculated  data.   Values  for  Mach  number  from  0.3  to  0.7 
and  pitch  angle  between  0   and  15   are  given  since  these 
are  the  range  of  values  expected  in  the  intended  appli- 
cation.  The  average  error  in  X  (or  velocity)  was  about 
-0.4%  with  a  maximum  value  of  -1.336%.   The  average  pitch 
angle  error  was  0.12   with  a  maximum  value  of  1.36  . 
An  average  yaw  angle  error  of  0.6   was  obtained  with  a 
maximum  error  of  -1.16  .   Figure  16(a) ,  (b)  and  (c)  show 
these  errors  plotted  as  functions  of  Mach  number  and 
pitch  angle.   No  significant  trends  were  detected  in 
these  data  except  perhaps  in  e  .   Table  VII  shows  that 
the  yaw  angle  error  was  always  negative  at  an  average 
magnitude  of  roughly  half  a  degree.   This  is  probably 
an  indication  of  the  fixed  error  involved  in  mounting 
the  probe  on  the  freejet. 

It  should  be  noted  that  the  probe  mounting  used  on 
the  freejet  and  on  the  compressor  were  not  the  same. 
After  the  calibration  and  verification  tests  were  made 
on  the  freejet,  the  probes  were  mounted  in  special  actu- 
ators for  use  on  the  compressor.   First  however,  the 
assembled  probe  and  actuators  were  mounted  in  turn  on  a 
six  foot  long,  four  inch  diameter  pipe  which  was  fed  by 
the  laboratory  air  supply.   In  this  pipe,  due  to  its 
length  to  diameter  ratio,  a  steady  symmetrical  airflow 
parallel  to  the  pipe  centerline  was  assured.   For 
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different  Mach  numbers — pitch  angle  was  constrained  to 
zero  degrees  —  each  probe  was  yawed  about  its  tip  to  either 
side.   By  comparing  left  and  right  branches  of  the  indi- 
cated probe  output  the  yaw  angle  vernier  was  set  to  zero 
at  the  point  of  symmetry,  corresponding  to  aligned  flow. 
The  probe  was  secured  in  the  actuator  so  that  for  com- 
pressor measurements,  zero  yaw  corresponded  precisely  to 
alignment  with  the  axial  flow  direction  through  the 
machine. 

5.2.   Verification  on  the  Free jet 

In  order  to  verify  the  probe  calibration  and  data 
reduction  in  a  known  flow,  the  probes  were  mounted  to- 
gether on  the  freejet.   Only  the  yaw  angle  of  one  probe 
(the  "A"  probe)  could  be  read  using  the  data  acquisition 
system.   The  probes  were  displaced  peripherally  at  an 
angle  of  90   to  each  other  (see  Fig.  6) .   While  the  tip 
of  the  "B"  probe  was  on  the  centerline,  the  tip  of  the 
"A"  probe  was  retracted  radially  about  one  inch  from  the 
centerline  to  avoid  flow  interference  between  the  probes. 
Both  probes  were  mounted  on  the  same  type  of  pitch  angle 
adjustment  device. 

In  the  test  procedure  the  probes  were  set  in  unison 
to  controlled  pitch  angles  and  Mach  numbers  which  were 
unknown  to  the  operator.   At  each  setting,  the  two  probes 
were  each  rotated  to  9  different  yaw  angles  (+65  ,  +45  , 
+30°,  +15°,  0°) .   Data  were  taken  for  each  of  the  9  yaw 
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positions.   The  pressure  readings  recorded  were  the  average 
of  10  sucessive  samples.   Before  the  actual  test  the  zero 
drift  of  the  sensors  was  checked.   For  the  "A"  probe  this 
was  done  by  comparing  the  probe  output  when  set  to  zero 
pitch  angle  with  pressure.   For  the  "B"  probe,  the  probe  was 
set  to  -35   in  pitch  (see  Fig.  4)  and  a  similar  compari- 
son was  made.   The  data  taken  were  not  stored  but  only 
printed.   Appendix  F  contains  the  computer  program  TEST 
which  acquired  the  data  and  performed  the  data  reduction. 

In  order  to  check  the  yaw  angle  determined  by  the 
reduction  procedure  the  probe  yaw  angle  data  were  artifi- 
cially offset.   The  9  yaw  positions  recorded  were  changed 
by  adding  a  constant  to  each:   65°+X,  45°+X,   30°+X,  15°+X, 
0°+X,  -15°+X,  -30°+X,  -45°+X,  -65°+X.   The  data  reduction 
procedure  should  then  produce  a  value  for  the  yaw  angle 
equal  to  X. 

Table  VIII  shows  results  of  the  verification  tests. 

Shown  are  the  results  for  values  of  Mach  number  and  pitch 

angle  which  are  typical  of  those  to  be  expected  in  the 

compressor.   The  errors  given  in  Table  VIII  are  defined  as 

xs  -  X 
ex  =  ^C-^  ■   10° 

S 

e   =  a   -  a 
a     s     c 

where  index  s  is  the  set  condition  and  c  the  calculated 

value . 
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The  values  of  e„.  £,,  and  e   obtained  were  considered 
X        <p  a 

to  represent  an  acceptable  accuracy  for  the  planned  appli- 
cation of  the  technique.   In  particular,  the  accuracy  of 
the  pitch  angle  measurement  was  encouraging.   The  pitch 
angle  was  of  particular  concern  because  the  distribution 
of  pitch  behind  the  rotor  was  a  particular  goal  of  the 
intended  measurements  which  could  lead  to  important  con- 
clusions concerning  the  flow  through  the  rotor.   As  shown 
in  Tables  VII  and  VIII,  the  errors  in  pitch  angle  measure- 
ment appear  to  be  acceptable. 
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6 .   APPLICATION  IN  COMPRESSOR  TESTS 

Complete  results  of  compressor  measurements  made  with 
the  probe  system  will  be  reported  later.   Some  initial 
measurements  are  reported  here  to  examine  and  illustrate 
the  reliability  and  accuracy  of  the  probe  system  and  of 
the  data  reduction.   Since  the  data  acquisition  in  the 
compressor  is  more  complicated  than  in  calibration  tests 
on  the  free jet,  the  procedures  and  the  programs  used  are 
described  in  detail. 

6.1.      Necessity    of    an   Online-Calibration 

The  semi-conductor  transducers  are,  to  some  degree, 
sensitive  to  temperature  change  as  well  as  to  differential 
pressure  change.   If  a  relationship  between  differential 
pressure  and  voltage  output  of  the  transducer  was  estab- 
lished by  calibration  before  the  compressor  was  started, 
there  would  be  no  guarantee  that  this  relationship  would 
remain  valid  while  the  machine  was  running.   A  total 
temperature  rise  of  25  F  occurs  in  flow  through  the 
rotor  and  the  actual  temperature  of  the  probe  itself 
must  increase,  but  can  never  be  known  precisely.   The 
magnitude  of  the  probe  temperature  rise  is  large  enough 
however  that  the  change  in  the  transducer's  voltage/ 
pressure  relationship  must  be  taken  into  account  in  some 


way.   This  is  done  through  online  calibration. 

6.2.   Online  Calibration 

Although  there  is  a  temperature  sensitivity,  the 

relationship  between  the  voltage  output  of  the  transducer 

and  the  differential  pressure  is  found  to  be  always  linear 

(Ref.  2,  3).   Thus,  if  e  denotes  the  voltage  output  and 

AP  the  corresponding  differential  pressure,  the  equation 

AP  =  i  +  S  •  e  (8) 

describes  the  calibration,  where  i  is  the  intercept  and 

S  is  the  slope. 

The  transducer  is  arranged  in  the  probes  such  that 

any  desired  constant  pressure,  P  ,  can  be  applied  to  the 

back,  or  reference  side,  of  the  transducer.   The  unknown 

pressure  on  the  front  of  the  transducer,  P,  which  is 

varying  in  time,  is  given  by  P  =  AP  +  p  ,  or 

P  =  i  +  S'e  +  P  (9) 

r 

The  on-line  calibration  procedure  establishes  values 
for  the  slope  and  intercept  while  the  compressor  is  oper- 
ating at  the  speed  and  flow  rate  at  which  probe  data  are 
required.   The  procedure  to  establish  the  slope  is  the 
same  for  both  the  Type  "A"  and  Type  "B"  probes.   The 
procedure  for  the  intercept  is  more  elaborate  and  quite 
different  for  the  two  probes.   The  procedures  are  described 
separately  in  the  following  paragraphs. 
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6.2.1.  Procedure  For  Slope 

At  a  given  steady  machine  condition,  the  time 
average  probe  pressure,  P,  is  constant.   Because  of  thermal 
inertia  it  is  reasonable  to  assume  that  both  the  slope  S 
and  the  intercept  i  are  also  constant,  although  unknown. 
If  two  different  reference  pressures,  Pr   and  Pr->,  are 
applied  to  the  transducer  in  turn,  and  the  corresponding 
time-averaged  output  voltages  iT  and  eT  are  recorded  then, 
from  equation  (9) , 

p  =  i  +  s  .  n  +  pri         (10a) 

and 

P  =  i  +  S  •  i~^  +  Pr  (10b) 

combining  these  equations,  it  follows  that 

P     P 

r2  "   rl 
S  =  — ± — -  (11) 

e2  -  ex 

Equation  (11)  provides  the  means  to  calculate  the  slope 
of  the  transducer  from  measurements.   In  practice  four  to 
five  different  reference  pressures  are  applied  and  the 
slope  is  calculated  as  a  linear  approximation  (by  least 
squares)  to  the  variation  of  e  vs.  P  . 

6.2.2.  Procedure  For  Type  "A"  Probe  Intercept 
The  time  averaged  flow  conditions  in  the 

measuring  plane  are  established  using  the  combination 
pneumatic  and  temperature  probe  reported  in  Ref.l.   The 
probe  determines  values  for  the  Mach  number,  pitch  angle 
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and  yaw  angle*.   The  combination  probe  tip,  with  its 
arrangement  of  four  pressure  tubes,  is  shown  in  Fig.  17. 
When  the  probe  is  aligned  to  balance  pressures  P?  and 
P3,  the  pressure  referred  to  as  P,  is  a  measurement  of 
the  total  pressure,  since  the  flow  pitch  angle  can  not 
exceed  about  11   at  the  rotor  exit.   Similarly,  the  type 
"A"  probe  when  aligned  at  the  time-averaged  yaw  angle 
is  also  in  principle,  a  total  pressure  probe.   By  equating 
the  measured  pneumatic  pressure  P,  to  be  equal  to  the 
time-average  of  the  pressure  seen  by  the  type  "A"  probe, 
?7,  the  intercept  of  the  "A"-probe  can  be  calculated 
using  equation  (10)**. 

Data  for  the  calculation  of  the  intercept 
was  gathered  during  the  acquisition  of  time-resolved  flow 


* 
The  question  of  whether  a  pneumatic  probe  can  measure 

the  correct  time-averaged  values  of  fluctuating  pressures, 
raised  in  Ref.  7  and  Ref.  8,  was  addressed  in  Ref.  1.   It 
was  shown  that  for  the  conditions  measured  to  date,  the 
results  of  the  combination  probe  were  accurate.   Neverthe- 
less, the  possibility  that  an  increase  in  rotor  speed, 
resulting  in  higher  fluctuation  pressure  amplitudes  and 
pressure  ratios,  might  affect  the  accuracy  of  the  pneumatic 
measurements  is  accepted;  and  close  attention  will  be  paid 

to  it  in  the  future. 
*  * 

The  "time-average"  voltage  could  be  recorded  using 

the  integrating  DVM  or  by  acquiring  a  large  number  of  dis- 
creet samples  at  arbitrary  intervals  using  the  HP  5610  A./D 
converter  and  computing  the  average.   In  early  tests,  the 
samples  for  the  time-average  measurements  were  taken  using 
the  A/D  converter  in  the  so  called  "free-run"  mode.   Roughly 
1500  single  data  samples  were  collected  over  about  15  msec. 
A  comparison  of  the  average  values  acquired  this  way  with 
those  given  by  a  digital  voltmeter  consistently  showed 
agreement  to  within  +0.5%.   Subsequently,  for  convenience, 
the  DVM  was  used  to  acquire  values  of  the  time-averaged 
voltage  S  from  the  Kulite  probes  during  the  online  calibration 
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data.   At  each  yaw  angle  to  which  the  two  probes  were 
set,  readings  of  the  probe  transducer  outputs  were  re- 
corded using  the  DVM.   Data  from  the  combination  probe 
were  acquired  also;  however,  the  probe's  yaw  angle  was 
not  changed.   The  DVM  voltage  readings  from  the  "A" 
and  "B"  probes  were  approximated  as  functions  of  the 
corresponding  yaw  angles  by  fourth  order  polynomials, 
e7  =  eT(a)  and  iT  =  eT(a) .   The  maxima  of  these  functions 
were  derived  mathematically  and  designated  e,max  and 
eRmax  respectively. 

The  value  eTmax  was  found  to  exist  at  a 
flow  yaw  angle  very  close  to  the  yaw  angle  measured  with 
the  combination  probe.   For  the  A  probe,  a  pressure  co- 
efficient was  defined  as 

p      —  p 
rAmax    rs 

cp   =  -zz — =-=■        (12> 

AO     Pt  .  Ps 

The  index  "0"  indicates  that  the  coefficient  was  derived 

for  the  yaw  angle  where  the  probe  was  aligned  with  the 

time-averaged  flow.   Ideally  Cn    would  be  unity,  since 
a  PA0 

the  "A"  probe  is  expected  to  measure  total  pressure  if 
properly  aligned  with  the  flow.   However,  during  the 
calibration  procedure  (reported  in  Section  4)  it  was 
found  that  Cp,Q  depended  slightly  on  the  probe  pitch 
angle,  although  not  on  Mach  number.   As  shown  in  Fig.  18, 
CpA0  varies  within  the  range  of  0.990  to  1.020.   The 


30 


relationship  between  Cp  _  and  pitch  angle  obtained  in 
the  steady-flow  calibration  was  approximated  by  a  fourth 
order  polynomial.   Using  this  approximation  and  the  time- 
averaged  pitch  angle,  stagnation  pressure  (P  )  and 
static  pressure  (P~T)  ,  P^max  can  be  calculated  using 
Equation  (12)  . 

Knowing  the  values  e,max,  the  slope  s  and  the 
reference  pressure  (P,,)  ,  the  intercept  (i)  of  the  A-probe 
can  be  calculated  using  equation  (10).   Thus  the  rela- 
tionship between  the  probe  and  the  time-varying  voltage 
signal  from  "A"  probe  is  known,  using  equation  (9). 
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6.2.3.   Procedure  for  Type  "B"  Probe  Intercept 

The  determination  of  the  intercept  of  the  "B" 
probe  is  indirect.   Unlike  the  "A"  probe  there  is  no 
matching  pneumatic  measurement  for  the  "B"  probe.   Such 
an  approach  would  be  too  inaccurate.   The  "B"  probe  is 
intended  to  be  very  sensitive  to  pitch  angle  changes, 
so  that  a  very  small  difference  in  tip  geometry  of  the 
Kulite  and  an  "equivalent"  pneumatic  probe  would  cause 
a  potentially  large  error  in  the  calculation  of  the 
intercept.   Thus  an  alternate  way  to  derive  the  "B"- 
probe  intercept  was  adopted. 

During  the  online  calibration  procedure,  the 
"A"  and  "B"  probes  are  set  to  the  same  yaw  angle  as  the 
combination  probe.   In  this  orientation,  all  three 
probes  are  aligned  with  the  time-average  flow  vector. 
This  flow  vector  is  determined  totally  by  the  combination 
probe,  and  thus  the  yaw  angle,  pitch  angle,  Mach  number, 
total  and  static  pressures  are  known  for  the  time-averaged 
conditions . 

A  pressure  coefficients,  Cp_  can  be  calcu- 
lated for  the  "B"  probe  using  the  definition 

P     P 
=-   _  ^B  -  ^S  (13) 

Pb  "  = — 

p    p 
t  -  *s 

If  the  pressure  reading  of  the  "B"  probe  when  aligned  with 
the  flow  is  referred  to  as  P~T    ,  the  corresponding  pressure 
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coefficient,  Cp   , (at  zero  yaw  angle  of  the  probe  with 
BO 

respect  to  the  flow)  is  given  by 

■=-  PBmax    PS  (14) 

t   rs 

From  the  calibration  tests  reported  in  Section 
4,  values  of  Cp __  were  determined  for  each  of  5  4  combina- 
tions of  Mach  number  and  pitch  angle.   These  data  are 
given  in  Table  IX.   Figure  19  shows  these  calibration  data 

for  C„    plotted  as  a  function  of  Mach  number  and  pitch 
PB0 

angle.   While  the  dependence  on  Mach  number  is  seen  to 

be  small,  a  strong  and  well-behaved  relationship  between 

Cp     and  pitch  angle  can  be  ovserved.   Co"   was  viewed 
FB0  PB0 

as  a  function, 

^B0  =  ^B0(X'^  (15) 

The  function  in  equation  (15)  was  similarly  approximated 
using  the  calibration  data  as  a  surface  depending  on  two 
independent  variables  (Section  4.4).   Appendix  G  describes 
the  computer  program  used  and  illustrates  the  results. 

Using  the  expression  for  the  surface  represented 
by  equation  (15),  and  values  of  the  Mach  number  and  pitch 
angle,  given  by  the  combination  probe,  at  each  operating 
point,  Cp~   ware  calculated.   Then,  using  the  time-averaged 
total  and  static  pressures  given  by  the  combination  probe 
measurement/a  corresponding  value  of  ?Bruax  can  be  calcula- 
ted using  equation  (14).   Using  the  recorded  value  of  the 
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"B"  probe  voltage  output,  e_,max,  corresponding  P  ,  and 

a  r 

the  value  established  earlier  for  the  transducer  slope, 
the  intercept  of  the  "B"  probe  was  calculated  using 
equation  (10).   Thereafter,  equation  (9)  could  be  used 
to  convert  time-dependent  voltage  readings  to  absolute 
pressure  values. 

6.3.       Data  Acquisition    in    TX-Ccmpressor  Measurements 

The  hardware  of  the  dual  probe  digital  sampling 
technique  was  described  in  Section  2.   The  present  sec- 
tion describes  the  procedures  and  software  used  to  ac- 
quire and  store  raw  data  necessary  to  determine  blade- 
to-blade  velocity  distributions.   The  sequence  of 
events  is  summarized  in  Table  X. 

As  described  in  Section  2  and  Section  4.5,  at 
each  blade-to-blade  location  sufficient  data  from  the 
"A"  and  "3"  probes  were  required  that  functions 
P,  =  P„(a)  and  P_,  =  P„(a)  could  be  established.   However, 
the  yaw  angle  was  not  known  apriori  for  any  of  the  256 
positions  at  which  data  were  acquired.   The  time  average 
yaw  angle  was  known  from  the  combination  probe  and 
variations  in  yaw  angle  were  selected  to  be  about  this 
value . 

It  was  found  that  yaw  angle  varied  typically  -5 
to  +15  from  the  time  averaged  value.  Thus  data  were 
acquired  for  9  different  probe  yaw  angles  covering  a 
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range  of  the  average  yaw  angle  minus  5°  minus  6  5°,  and 
plus  15   plus  65  ,  in  order  to  make  sure  that  a  sufficient 
range  was  covered  to  define  the  maximum  values  from 

PA  =  PA(a)  and  PB  =  PB(ct)  for  la=  163°- 

Program  &ABKUL  was  used  for  the  data  acquisition. 

It  is  described  in  detail  in  Appendix  A.   Figures  20a  and 

20b  show  an  output  of  the  raw  data.   Shown  are  the  outputs 

of  "A"  probe  (Fig.  20  a  +  b)  &  "B"  probe  (Fig.  20  c  +  d)  for  all 

256  positions  and  for  the  9  different  probe  yaw  angle 

settings.   The  plots  were  generated  by  program  &WAVE 

which  is  described  in  Appendix  I.   Besides  plotting  data 

from  a  data  file  the  program  also  offers  the  possibility 

to  acquire  data  from  one  Kulite  probe  and  plot  it  on-line. 

All  data  acquired  with  program  &ABKUL  are  stored 
in  one  large  data  file.   This  includes  the  unsteady  meas- 
urement data,  all  the  steady  state  data  for  the  online 
calibration  and  the  combination  probe  measurements.   Thus 
each  data  set  is  complete  and  independent  of  any  ether 
information. 

Table  Xa  shows  an  example  of  steady  state  data 
acquired  for  the  online  calibration  (see  Section  6.2.); 
values  for  the  slopes  of  the  Type  A  before  (1st)  and 
after  (2nd)  the  paced  data  acquisition.   This  output 
allows  comparison  of  the  results  of  the  two  calibrations. 
If  the  corresponding  values  of  slope  differ  by  more  than 
+  1.5%,  which  indicates  drift  during  the  measurement 
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period,  the  data  are  not  accepted.   The  "intercepts"  of 
"A"  and  "B"  probes  are  also  printed.   These  values  are 
only  used  however  to  monitor  changes  during  the  data 
acquisition.   The  actual  intercept  of  the  voltage- 
pressure  characteristic  must  be  calculated  from  these 
values  as  described  in  Section  6.2.   Here  again  a  dif- 
ference of  more  than  +1.5%  is  taken  as  evidence  that 
the  transducer  drifted  during  the  measurement.   The 
other  data  shown  in  Table  X  is  raw  data  which  is  printed 
out  immediately  after  it  is  acquired  so  that  it  can  be 
checked.   Combination  probe  data  are  always  acquired 
with  the  Kulite  probe  data.   Table  Xb  shows  steady- 
state  data  taken  with  the  data  from  the  "A"  and  "B" 
probes.   For  each  probe  yaw  angle  setting  the  same  data 
is  acquired  as  for  the  online  calibration.   The  values 
"yaw  A  pr . "  and  "yaw  B  pr . "  give  the  probe  yaw  angle 
settings  (nine  positions) .   In  the  third  column  values 
DCA  and  DCB  are  printed.   As  described  in  Section  6.2., 
these  are  the  dc  voltage  levels  of  the  "A"  and  "B"  probes 
which  will  be  used  for  the  determination  of  the  inter- 
cept.  For  each  of  the  nine  positions,  values  called 
"averaged  values  paced  output"  for  "A"  and  "B"  probes  are 
printed.   Those  are  the  averages  of  the  256  single  meas- 
urements of  each  of  the  probes .   A  comparison  of  these 
values  with  the  DCA  and  DCB  values — if  the  decimal  point 
is  neglected — show  differences  of  up  to   5%.   This  is 
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because  the  DC  values  are  derived  for  the  whole  rotor, 
while  the  paced  output  values  are  from  two  selected  blade 
pairs  only. 

The  single  raw  data  file  is  arranged  in  a  20  by  256 
array.   Table  XI  shows  the  location  of  the  data  within  that 
array.   Column  #1  contains  the  data  for  the  online  calibra- 
tion only  while  column  #20  is  reserved  for  the  steady  state 
data  acquired  with  paced  data.   Columns  #2  through  #19  con- 
tain the  raw  data  for  the  nine  yaw  angle  settings  of  the  "A" 
and  "B"  probe,  with  the  Type  A  probe  data  in  even  numbered 
columns,  the  Type  B  probe  data  in  the  odd  numbers.   Table  XI 
also  shows  the  hook-up  for  the  data  acquisition  for  the  steady 
state  data.   This  is  explained  in  more  detail  in  Appendix  H. 
The  data  acquisition  for  one  set  of  data  including  online 
calibrations  and  steady  state  data  requires  some  17  to  20 
minutes . 

6.4.  'Data  Reduction 

After  the  raw  data  is  checked  for  obvious  errors  using 
program  WAVE  (see  section  6.3.)  the  data  reduction  is  carried 
out  using  a  single  program  "ABRED" .   The  steps  in  the  pro- 
cedure are  listed  in  Table  J-l  and  Appendix  J  describes  the 
program  in  detail. 

The  program  first  reads  the  coefficient  files  for  the 
calibration  of  the  A-  and  B-probe  as  well  as  those  for  the 
combination  probe.   The  operator  is  then  asked  for  some  input 
concerning  the  amount  of  output  that  is  desired.   The  first 

37 


calculation  is  to  determine  the  flow  time-average  properties 
from  the  combination  probe  measurements.   The  average  of  the 
readings  obtained  at  the  nine  different  Kulite  yaw  angle  set- 
tings is  computed  since  the  yaw  angle  of  the  combination  probe 
was  not  changed  during  the  acquisition  sequence.   The  results 
shown  in  Table  XII  are  values  for  dimensionless  velocity  (X) , 
yaw  angle,  pitch  angle,  total  pressure  and  static  pressure. 

The  second  calculation  uses  these  values  and  the  ac- 
quired raw  data  for  the  online  calibration  to  compute  the  inter- 
cept values  of  the  "A"  and  "B"  probes.   It  is  at  the  user's 
discretion  to  output  the  steps  in  this  process  in  order  to 
check  the  calculations  performed  (see  Appendix  J) . 

The  first  reduction  of  Kulite  data  performed  is  for  the 
time-averaged  values  from  Kulite  probe  measurements.   A  DC 
voltage  reading  of  both  probes  was  recorded  for  each  of  the 
nine  yaw  angle  positions  the  probes  were  set  to.   Using  the 
results  of  the  previously  performed  online  calibration,  ab- 
solute pressure  values  are  calculated.   These  are  placed  in 
two  arrays,  PAA(9)  and  PAB(9).   Arrays  YAWA(9)  and  YAWB(9) 
are  filled  with  the  corresponding  yaw  angle  values.   Using 
fourth  order  polynomials  a  relationship  is  approximated  giving 
pressures  of  "A"-  or  "B"-probe  as  functions  of  yaw  angle. 

From  these  functions  the  values  P,  „,„  .  Pe  ,  Pc  ,  Pc   and  Pp  max 

t\   max   ot    oj^    on 

are  derived  as  shown  in  4.5.   The  flow  yaw  angle  was  assumed 

to  be  the  one  corresponding  to  PR     .  However,  it  should  be 

r      3      a    max 

mentioned  that  the  flow  yaw  angle  derived  from  the  A-probe 
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as  the  center  value  between  the  yaw  angles  corresponding  to 
Ps   and  Ps   deviates  only  slightly  (±0.5°  to  ±1.0°)  from  the 

Li  R 

one  found  with  the  B-probe. 

From  these  four  pressurea,  coefficients  3,  y   and  6   are 
calculated.   Applying  the  calibration  coefficients  to  these 
values  X —  or  Mach  number  —  and  pitch  angle  are  calculated 
lated.   Thus  the  time  average  flow  vector  is  determined. 
If  it  is  compared  to  the  one  derived  from  the  combination 
probe  measurement,  the  differences  turn  out  to  be,  typically 

0.6  4%  in  Mach  number 

0.55°  in  pitch  angle 

0.63°  in  yaw  angle 

The  magnitude  of  these  differences  is  acceptable.   Table 
XII  shows  results  of  an  actual  data  set  from  a  compressor  test 
run.   At  the  very  top  .values  calculated  from  combination  probe 
measurements  are  displayed  followed  by  the  results  of  the 
online  calibrations  for  both  "A"  and  "B"  probe.   Immediately 
thereafter  the  contents  of  the  arrays  PAA(9),  PAB(9),  YAWA(9) 
and  YAWB(9)  are  given  showing  the  average  pressure  values  of 
both  Kulite  probes  and  their  corresponding  yaw  angles  for  the 
overall  flow  measurement.   The  values  Psl>  pa  max  anc^  ?St?  ^e~ 
rived  from  those  are  shown  as  well  as  the  corresponding  yaw 

anqles.   Next  P0      and  the  yaw  angle  for  this  pressure  is 
3  B  max         ^  -d  l 

given. 

In  the  following  line  the  actual  flow  quantities  as 
derived  from  the  "A"-"B"  probes  are  listed.   XU ,  XAX  and 
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BETA2  are  calculated  from  Xr  pitch  and  yaw  angle,  the 
circumferential  speed  and  axial  speed  are  printed  also. 
These  values  are: 

XU    =  Circumferential  speed  (dimensionless) 

XAX   =  Axial  speed  (dimensionless) 

BETA2  =  Relative  flow  angle  in  the  measuring  plane. 

Once  the  overall  flow  vector  is  determined  from  the  Kulite 
probes  and  compared  to  the  results  from  the  combination  probe, 
individual  measurements  are  reduced  for  any  or  all  of  the  256 
positions.   Whether  all,  one  or  any  set  of  positions  is  re- 
duced is  operator-controlled  by  input  parameters. 

The  same  way  the  data  reduction  was  carried  out  for  the 
time-average  flow  vector  the  raw  data  for  all  256  single  posi- 
tions are  treated.   Arrays  PA(9)  and  PB(9)  are  filled  with  nine 
individual  pressures  of  "A"  and  "B"  probe  which  were  derived 
from  the  raw  data  applying  the  results  from  the  online  cali- 
bration.  The  yaw  angle  settings  YAWA(9)  and  YAWB(9)  are  the 
same  nine  values  as  before.   Those  are  the  same  throughout 
the  whole  reduction  since  they  are  the  ones  the  probes  were 
set  to.   In  Table  XII  the  arrays  of  P,,  PB,  YAWA  and  YAWB  are 
shown.   Also  given  are  arrays  PAC(9),  DPA,  PBC(9),  DPB .   As 
mentioned  previously  P-  and  PB  are  approximated  as  functions 
of  yaw  angle  by  fourth  order  polynomials.   In  order  to  check 
the  quality  of  that  approximation,  using  the  polynomials, 
values  are  calculated  for  the  nine  given  yaw  angles  (PAC(9) 
and  PBC(9))  and  the  difference  between  the  measured  pressure 
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value  P,  or  P_  and  the  calculated  value  PAC  or  PBC  is  dis- 
played as  DPA  or  DPB.   As  long  as  the  values  DPA  and  DPB 
are  smaller  than  ±2  inches  of  water  (all  pressures  shown 
are  in  inches  of  water) ,  it  can  be  assumed  that  the  approxi- 
mation fits  the  data  points  sufficiently  well. 

Above  the  array  of  measured  data  are  some  reduced  values 

Again  Pc  ,  P,      and  P~   are  printed  with  their  correspond- 
^      bL'   A  max       bR      ^  r 

ing  vaw  angles.   Below  the  array, P„      and  the  flow  angle 

3  -1      3  J  '    B  max 

for  this  particular  position  are  given.   In  the  last  line 
position  number,  beta,  gamma,  X —  or  Mach  number  — ,  pitch 
angle  and  yaw  angle  for  this  position  are  given. 

If  a  data  reduction  shall  be  performed  for  all  256  posi- 
tions it  is  advisable  to  skip  the  print-out  of  the  raw  data 
and  all  intermediate  steps  (primary  input) .   This  way  there 
will  be  only  the  print-out  of  the  last  line  of  Table  XII  for 
each  of  the  positions. 
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6 . 5   Data  Presentation  and  Evaluation 

In  chapter  6.4  the  reduction  procedure  of  the  raw  data  to 
discrete  values  of   X-  (or  Mach  number) ,  pitch  angle  and  yaw 
angle  for  all  or  any  of  the  256  positions  of  measurement  was 
described.   All  these  flow  parameters  were  stored  in  a  single 
file  and  can  be  retrieved  at  any  time.   In  order  to  get  an  idea 
of  the  flow  behavior  with  respect  to  the  rotor,  the  flow  para- 
meters were  plotted  as  a  function  of  the  position  within  the 
rotor  frame.   Figure  21(a)  shows  the  distribution  of   X  ; 
Fig.  21(b)  gives  the  yaw  angle  and  Fig.  21(c)  the  pitch  angle 
distribution.   The  programs  used  to  generate  these  plots, 
namely  PLOTX ,  PLOTY  and  PLOTP ,  are  described  in  Appendix  L. 

The  general  behavior  of  the  measurements  was  examined. 
For  this,  the  assumption  was  made  that  the  relative  flow  angle 
at  the  rotor  trailing  edge,   S„  ,  was  constant  for  a  given 
radius  (see  Fig.  22).   Figure  23  shows  the  velocity  triangles 
for  the  flow  leaving  the  rotor.   If   32   an<3   X   ,  the  circum- 
ferential velocity,  are  constant,  any  change  in  the  Mach  number 
of  the  relative  flow  will  reflect  in  a  change  of  yaw  angle  and 
Mach  number  of  the  absolute  flow.   Using  the  nomenclature  in 
Fig.  23,  at  any  given  flow  condition   i   the  absolute  velocity 
is  given  by 

X 
u 

X    = s — . (16) 

v.    tan  30  .  cos  a.  +  sin  a. 
l         2         l         l 
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Figure  24  shows   x    as  a  function  of  yaw  angle.   To  be 

vi  * 

examined  is  the  yaw  angle  corresponding  to  the  minimum  value 

of   X     .   From  Fig.  23  it  can  be  seen  that  this  yaw  angle 

i 
o 
is  (90   -  S?)  which  is  indicated  also  on  Fig.  24.   Looking 

at  Fig.  21(b)  it  was  found  that  indeed  the  minima  of   X  , 
3  vel 

correspond  to  a  yaw  angle  of  3  9.11°. 

Another  characteristic  point  in  Fig.  21(b)  is  the  maximum 

value  (48°)  of  the  yaw  angle.   when   X   ,   was  derived  from 

1  3  vel 

equation  16  and  from  Fig.  24  for  that  yaw  angle,  a  value  of 
.1572  was  obtained.   This  value  was  found  to  be  consistent 
with  the  measured  iMach  number  for  that  particular  location. 
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7.       DISCUSSION    AND   CONCLUSIONS 

As   pointed  out  in   chapter   6.2   the   absolute   accuracy  of 
the  Kulite   measurements   is    governed  by   the   accuracy  of  the 
combination  probe   measurements.      At  higher  Mach  numbers   yet 
to  be   measured,   this    may  become   a  problem    (see    Ref .    1) . 
Reference    7  shows    that  the  pneumatic  measurement  might  be 
incorrect  if   the    fluctuations   in  pressure   increase   in   ampli- 
tude beyond  certain   limits.      Since    the   experiments   of   Ref.    7 
were   carried  out   using  a  totally  different   set-up   for  measure- 
ments  of  total   and  static  pressures,    the  results    are  not 
directly   comparable,    however,    an  examination   of   the  possible 
influence   of  such  errors  was    attempted. 

The    assumption  was   made    that  PI  should  be    treated  like   a 
total  pressure  probe    and  P23   and  P4   like   static  pressure  probes. 
It  was    assumed  that   an  error  in    the   measurements   of  PI   and  also 
in  P2  3   and  P4,    or  in  PI   or  P2  3   and  P4  would  occur   at  the  same 
time,    giving   a  total   of  three   possible   combinations. 

An   error   of    10%    defined   according   to    Ref.    7  was    assumed. 
Such   an  error  resulted  in   an  error  of  0.25%    in   the   absolute 
value   of  the    total  pressure   and  0.5%   in   the   static  pressure. 
These   errors    applied  to  the   data   from  data   file   AB1901  resulted 
in  none   of   the    three   error  combinations   giving  a  significant 
change   in  Mach  number   and  yaw   angle   distribution.      The  pitch 
angle   showed  the   only  significant  dependence   on   these   assumed 
errors.      Figure    25    shows    the   comparison   of  calculated  pitch 
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angle    distribution  with   and  without    assumed  errors.      It   can   be 
seen   that   the   biggest  error  was    found    for   the    case    of   a   correct 
total   pressure,    but   an   incorrect  static  pressure    (P23   and  P4)  . 
An   average    difference   of   about   one    degree  was    found,    and   the 
distribution    did  not   show    any  qualitative    differences.      Since 
the   pitch    angle    could   also  be   measured  0.5      too   low    (if  PI   is 
measured  incorrectly  but  P2  3   and  P4    are    measured   correctly)  , 
the   achievable    accuracy   of    the   pitch   angle    measurement    is 
within    a   range    of   -0.5      to  +1.0 

The   basis    of   the   method  of   application    in    the    compressor 
is    that   the   behavior  of   the  probes    as    a   function   of  yaw   angle 
at  each  point  in    the   rotor   frame   is    the   same   as   in   a  steady 
flow    at    the    corresponding  Mach  number    and  pitch    angle.      The 
steady    flow   characteristic   is   known    from  the    calibration.      In 
order   to  examine    the    validity   of   this    assertion,    probe    measure- 
ments were    analysed   for   selected  points    of  measurement  with 
respect   to   the    rotor   frame.      It  was    found   that   the   B-probe 
produced   the    same    characteristic      PB      vs.    yaw   angle   in   its 
application    as    it   did  in    its    calibration.      The    type   A  probe 
however   showed   different    results    depending  on    the    location   of 
measurement.      Figure   26    shows    the  output  of   the  A  probe    reduced 

to   values   of      Gp        plotted  in   comparison  with    the    curve   of      C_, 

FA  FA 

as    a   function   of  yaw   angle   established  during   the    calibration. 

It   can  be   seen   that   for   the    time    average   values    the   agreement 

between   test  data   and  the   calibration   is   very   acceptable.      It 
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is  also  acceptable  for  data  from  near  mid  passage.  However, 
the  same  is  not  true  for  data  in  Fig.  26  from  the  rotor  wake 
region.  Going  into  the  wake  and  out  of  it  tends  to  skev;  the 
top   of  the   function      C  vs.    yaw   angle    to  different  sides   of 

the    actual   flew  yaw   angle.      Near  the   center  of   the  wake    the 
probe    characteristic    appears    to  be    similar   to  that  established 
in    the   calibration.      Four   possible   explanations    for  the 
skewing   are    considered: 

a)  Flow   temperature  effect  on   the  probe   output   depending 
on   the   different  probe  yaw   angle   settings. 

b)  Probe   interference    due    to   "steady"    gradient  effect. 

c)  Probe    interference    due    to    "unsteady"    gradient  effect. 

d)  "Incorrect"    averaging  in   a   flow   in  which  Mach  number 
and  flow   angles    are   separately   unsteady,    and  probe   output  is 
non- linear  in     M    ,    a      and      <j>   . 

The  effect  in    (a)    is  not  a  probable  explanation   since    the 
effect  would  be   present    also   in   positions    outside    the  wake.      It 
is    also   unlikely,    because   of    thermal    lag,    that   the   sensor 
material    could   respond   to    the  high    frequencies    of   the  wake 
fluctuations.      The   effect   in    (b)    could  give   errors   having   the 
observed  qualitative   behavior. 

In   Ref.    9    it  is   shown   that  when   a  velocity   gradient 
strikes    a  total  pressure  probe    the    apparent   location  of  measure- 
ment  tends   to  shift   away    from  the   center  of   the  probe    tip.      The 
calculations    carried  out   in    Ref.    9   were    applied   to   the   geometry 
of   the   probes    and   flow  parameters   measured  in   the   blade  wakes 
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with   the   A-B   probes.      It  was    found   that    an   apparent   displace- 
ment of   the   order  of    3%    of   the  probe    outer   diameter  was    indi- 
cated  to  be   possible.      This  was    considered  to  be   negligible. 
However,    since    the    results    in    Kef.     (a)    were    for   impact  probes 
at    zero  yaw   angle    to    the    flow  direction,    an   experiment   to   verify 
the    conclusion    for   the   A-B   probes   yawed   in    a  velocity   gradient, 
is    certainly   desirable. 

The   possibility   of   an    unsteady  error  which    results 
from  the  behavior  of  the   probe   itself  must  be   considered. 
However,    it   is   noted   that   the   error   is   only   significant  where 
the    flow  is    unsteady   in    the   rotor   frame.      This  explanation 
would  have    to  be    accepted  if   all    other  explanations    failed, 
and  could  be    verified  by   independent  non-intrusive    measurements 
such    as    LDV.      However,    since    the   error   appears   only   in    the 
unsteady  wake    the   most   probable    cause    is    thought   to  be      (d)  . 

The   existence   of    unsteadiness   of    flow  parameters    in 
the  wake    region    is    clearly  evident    from  oscilloscope    observa- 
tions.     The   observed   fluctuations    are    oscillations    in    the   probe 
output   voltage    (pressure)    readings,    which — in    the    data   acquisi- 
tion process — are   ensemble- averaged  over    40    samples    to    repre- 
sent  one   value   of   pressure    for   a   single    measurement. 

From  the    average   pressure    values,    pressure   differences    and 
ratios    are    derived   and   reduced   to   obtain    a  velocity   vector   cal- 
culated  in    this  way    is    the   same    as    the    average    flow   velocity 
vector.      The  question    clearly,    is  whether  the    flow   velocity, 
vector   calculated   in   this   way    is    the   same    as    the    average    flow 
velocity   vector  which    could  be   obtained  if   the    actual    velocity 
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vector  was   known   for   the    individual   samples.      Clearly,    the  probe 
output    depends   quite    differently   on    variations    in  pitch,    yaw 
and  Mach  number,    and   the    fluctuations    involve   changes    in   all 
three. 

A   first   attempt  was   made    to  examine    the  problem  of   averaging. 
Using   calibration    data,    an   array   of   three   Mach  numbers,    three 
pitch   angles    and  three  yaw   angles  was   selected.      This    resulted 
in   a  total   of  2  7  possible    flow  vectors,    for  which   the   functions 
P.    =   P,(a)       and     PD   =  P_,(a)      were   known.      Since    the    flow  yaw 
angle    during  a  calibration   is   always    zero,    an    "artificial"    yaw 
angle  was    superimposed  on    the    calibration    data.      For  yaw   angles 
different   from  zero,    corresponding  pressure   values    for  the  A  and 
B   probes   were    shifted  by    the   amount  of   the   superimposed  yaw    angle, 
but  in   the   opposite    direction. 

In   a   first  step   the  2  7   flow  vectors  were    averaged  by 
averaging   their   velocity    components   U,    V,    W   and   calculating   the 
corresponding  single    values    for  pitch    angle,    yaw   angle    and  Mach 
number.      Secondly,    for  each   of   the    2  7   vectors,    data   sets   PA(9) 
and  PB(9)     (corresponding   to  nine    different   probe   yaw   angles) 
were  built.      These    values   were    averaged   to    result   in  nine   single 
values    for  PA,    PB    and  corresponding  yaw   angles.      The    regular   data 
reduction  procedure  was    then    applied  and  pitch    angle,    yaw   angle 
and  Mach  number  were   calculated. 

Differences  between   the    two   calculation  methods  were 
defined  as: 
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X    ,   -    X 
af 

<f>  af  ap    ' 

subscript   "af"    meaning   average    from   flow   vectors    and   "ap"    meaning 
average    from  pressure    values. 

The  procedure  was   carried  out    for   four   different  sets   of 
data,    each    consisting   of   2  7    different   flow  conditions. 

Table   XIV   lists    the    range  within  which   each   of   the    flow 
parameters  was    varied   and   the    differences    resulting    from  the 
calculations.      The    differences    obtained  were   not   large,    however 
it  must  be   noted   that    the    process   of   averaging  which  has    been 
tested   does   not  exactly   simulate    the   one    to  which    the   A-B   probes 
are    subjected  in    the   compressor.      Further   analysis    is    required 
to  properly   evaluate    the  effect  of   averaging   on   the   probe    data. 
In   order   to  explain    the   skewing  observed  in   the   A-probe   output 
in    the  wake    regions,    it  would  only  be   necessary    to   have    fluctua- 
tions  which  were   not   symmetric  with   respect   to   the  wake    center- 
line,    as    is    very    likely    to  be    the   case    in    the  wake   of   a  highly 
loaded   compressor  blade. 

In    conclusion,    the    DPDS    technique   has   been   developed 
further   to  successfully   measure    three   components   of  velocity   in 
regions    outside    the    unsteady    rotor  wake.      The   edges   of   the  wake 
region   and  average   conditions    on   the  wake   centerline    are  well 
defined.      A   limitation    to   the    use   of   the  present  method  within 
the  wake    region   is    thought   to  be    due    to    the   necessity    for  ensemble 
averaging.      Further  work   is   planned   to    resolve    this   question. 
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Table  IX.   CpOB  for  All  Calibration  Configurations  of  Mach  Number  and  Pitch  A: 
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Table  X(b).   Run  Steady  State  Data  From  A-B  Probe  Measurement  (run  #119). 
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"DATAC 
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_DALAj£ 
DA  I  A  ( 
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,.DATA< 
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AtA»  At-     i'A — <«^    >i 


Uk 
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PCAL2 

Pi 


t  DATACr,  U 

J  DATAL6\  2) 

I  DATAi<^»,  i) 

t 

t 

$ 

I  DATAIZT,  2c) J 


1st 


t  DATA(2£\  21) 

I  DATA  (2^',  *») 

t 
t 

$  DATA'<;£,  ^j 

t  DATA (2^,  If)' 

I  DATA'^;  W) 

1 

*  DATA(2<T;  £<2 

t  DATAUr,  M)l 

I  DATACr,  W) 


V2nd 


r 


t 

t 

t  DATA(2«?.  f»-)J 


V4th 


S  DATA(2<?.  91) 
1  DATA(££  :R) 
J 

J 

*  DATAC&?  /Cf' 


i 


5th 


J  DAT  A  (2tf.i«1 
I  DATA(20,Ui:- 

t 

t 

1  DATA  QCAiQ. 

I  DATA(Wl2ir 

s  DATAte*i:«) 

t 

t  i-  7th 

t 

t  DATA (2c,  W^ 


t 

J        it 


ffa 


J  DAT/Tito,  ui>\ 


♦  data*?* 


IJS» 


DATA(2,256)  DATA(3,2S6)  DATAd, 256)  DATAC5.256)    —    DATAd/, 256)  DATAd3,256)  I 


Table  XI.   Arrangement  of  Data  Within  Raw  Data  File. 
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*^  /j*  ^  ^  ^  ^^  ^.  /$.%*.  jj\  fy  ^  ^  ^  ^  ^  ^  ^  ^. .  ^  j^  >^  -^  .^  ^  /^  ^  ^r1  ^  ^  ^  ^  ^  ^  ^iv  ^  ^  ^  /^  ^  ^  ^  /^  ^  *  is  ^  /^  ^  *^\  ^  ^  j^  ^ 
RAW    DATA   FILE    :    AB1901::    27 

V  \b  xl/  %V  *As  *lt    Is  •■!/  -i/  ^  'J/  -J^  *-V  sV  *V  *A>  vV  >Af  ^1/  %i/  ^  ^  •!/  %V  *!/  ■  A*  "^  ^  vfcf  «  u  nJU  \V  JU  *V  ^  "J/  ^V  -^  ■!/  ^i-  J.-  -i*    1/  vt/  \1/  \4/  '•l/  \I/  \1/  X>  -.i/  ■  w  \i* 
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FLOW  AVARAGED  VALUES  AS  ESTABLISHED  WITH  THE  COMBINATION  PROBE 


PtotaKINCH  H20)  Pstatic  <  INCH  H20)       Xuel 
438.3S2iiO         402.299380     . 1S693 

EQUATION  FOR  A-PROBE  PRESSURE  : 

PA  =    400.532230  +   9966.041000  *  VOLTAGE ( raw) *0 

CP0A  =     1.00408  CP0B  =    .6394757 

EQUATION  FOR  B-PROBE  PRESSURE  : 

PB  =    405.349850  +   9709.025400  *  VOLTAGE<raw>*0 

#   PAA<*>   PAB<#)  YAWA(*>  YAWB(*) 


Mach 
35443 


P  h  i  < d  e  a ) 

.  3D 


Yaw<  dea) 
30  .76 


01  +  PREFdNCH  H20) 
01  +  PREFdNCH  H20) 


1 
2 
3 
4 
5 
6 
7 
8 
9 
A- 


388 
415 
432 
438 
438 
436 
429 
412 
376 


564 
562 
724 
413 
205 
311 
005 
283 
753 


384 
4  05 
417 
424 


424. 
417. 
400. 
370  . 
PROBE  APPROX 


562 
356 
524 
489 
738 
055 
040 
314 
378 


-40.0 
-20  .0 
-.370 
14.71 


29. 
44. 
64. 
84. 
109.  3 
IMATIQN  R 
PRESSUR 


70 
66 
99 
79 


-39. 

-19. 

0.00 

15.0 

29.7 

45.  0 

65.3 

85.2 

110  . 

ESULTS 

E  (INCH 

C 


60 
40 
00 
00 
00 
00 
00 
00 
70 


850 
750 
000 
20  0 
900 
90  0 
30  0 
40  0 
230 
YAW 
H20) 
PAMAX 


-32. 03 
401.494630 
1 .0036 


438 


30  .97 
987430 


401. 


9 
49 


B-PROBE  APPROXIMATION  RESULTS 


YAW0  =   31.1  PRESSURE   (INCH  H20)  =426.03 


AVERAGE  VALUE  RESULTS  FROM  THE  A-B  SYSTEM: 


BETA 

GAMMA 

Xvel     Pitch 

x 

'aw        XU 

XAX 

BETA2 

.  08541 

.34569 

15693 

4.00 

31 

13    .24251 

. 13400 

50  .33 

A- 

PROBE  APPROXIMATION 

RESULTS  : 

YAW 

-33.87 

29 

.  13          S 

PRESSUR 

= 

401  .035520 

439.2  0  48: 

CPAMAX 

1  , 

0093 

* 

YAWA(I) 

PA(I) 

PAC(I) 

DP  A 

YAWB(I) 

P  B  ( I. ) 

PBC(I) 

1 

-40 . 060 

390 .745 

390 ,620 

12415 

-39.850 

336. 023 

386.211 

-20 . 040 

418.046 

413.693 

-  , 

64673 

-19.750 

407.238 

406.601 

3 

-.37000 

434.472 

433.312 

1 

16  0  4  0 

0. 00000 

419.654 

420.214 

4 

14.7100 

438.073 

438.3  07 

- 

23431 

15.020  0 

425.849 

426.014 

5 

29.70  0  0 

438.365 

439. 171 

- 

80560 

29.7900 

427.983 

427 . 737 

6 

44.6600 

436.436 

436.487 

— 

05164 

45. 0  90  0 

425.091 

425.287 

7 

64.9900 

428. 007 

427.0  55 

95190 

65.330  0 

416. 069 

415.419 

8 

84.7900 

409.352 

409.953 

- 

60059 

85.2400 

397.940 

398.495 

9 

109.570 

372.605 

372.503 

10175 

110.280 

367.713 

367.588 

B- 

■PROBE  APPROXIMATION 

RESULTS  : 

YAWO  =   28 

.8  PRESSURE 

(INCH  H2( 

3)  =427.75 

PSTATIC  (DERIVED  FROM  PAMAX  AND  XVEL)  =   402.086 


POS* 

Beta 

Gqmmq 

Xvel 

Pitch 

Yaw 

BETA2 

i 

. 08691 

* .30020 

.15784 

2.  16 

23  .  77 

50.31 

Table  XII.   Explicit  Output  of  Reduced  Data  (run  #119) 
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Raw  Data  From  File  AB1901:27 


3S* 

E«eta 

Gawna 

Xyel 

F>itch 

Yaw 

BETA2. 

i 

. 08691 

.30020 

.15784 

2.  16 

23.77 

5  0 

31 

2 

.  08625 

.29869 

.15719 

2.  07 

28.85 

5  0 

.47 

3 

.08659 

.29771 

. 1575i 

2.04 

23  ,  77 

5  0 

39 

4 

. 08693 

.29370 

. 15735 

2.  10 

23.67 

50 

.32 

5 

. 08626 

.29383 

. 15714 

i  ,86 

28  ,  34 

5  0 

54 

6 

. 08556 

. 29333 

. 15646 

1  ,81 

27.89 

50 

.  78 

7 

.08761 

.29336 

. 15845 

1  .89 

27.95 

5  0 

0*7 

8 

. 08695 

.29314 

. 15780 

1  .  36 

27,77 

50 

,  46 

9 

. 08699 

.30001 

. 15792 

2.  16 

27.87 

5  0 

42 

iO 

. 08651 

.29053 

. 15735 

1  .72 

28.  18 

5  0 

.51 

ii 

. 08616 

.30175 

. 15714 

2.20 

27.  01 

5  0 

75 

12 

. 08771 

.30535 

. 15867 

2.41 

27  .  27 

50 

,  o .... 

13 

. 08736 

.31543 

. 15344 

2.83 

27,4  0 

5  0 

33 

14 

. 08758 

.31300 

.  1.5863 

2.74 

27  ,  95 

5  0 

,24 

15 

. 08843 

.31647 

. 15949 

2.91 

27  .  52 

5  0 

10 

16 

. 08708 

. 32767 

. 15832 

3.33 

27  .  1  3 

5  0 

.  47 

17 

. 08815 

.33026 

. 15937 

3.43 

27,70 

50 

12 

18 

. 08751 

.33647 

. 15883 

3.71 

27.75 

5  0 

26 

19 

. 08845 

.34354 

.15981 

4.03 

27.49 

5  0 

07 

20 

. 08694 

.35324 

. 15855 

4.57 

27,79 

50 

"in 

21 

. 08777 

.35549 

. 15931 

4,49 

23,23 

50 

11 

if 

. 08727 

.35913 

. 15388 

4.61 

27.57 

50 

32 

. 08724 

. 36273 

. 15890 

4.76 

28.  06 

5  0 

25 

24 

. 08730 

.36500 

. 15893 

4.85 

28.23 

50 

2  0 

25 

. 08809 

.35980 

. 15967 

4.67 

23.  19 

5  0 

03 

26 

. 08817 

.35931 

.15973 

4,65 

27.69 

5  0 

,  0  9 

27 

. 08765 

.3677  0 

. 15935 

4,97 

28.36 

5  0 

03 

28 

. 08754 

.37437 

. 15933 

5.22 

23.31 

5  0 

13 

29 

. 08721 

.35432 

. 15876 

4.42 

28.30 

5  0 

16 

30 

. 08759 

.36250 

. 15923 

4.76 

29  .  1  1 

50 

.  0  2 

31 

. 08590 

.34610 

. 15741 

4.04 

29.45 

5  0 

41 

32 

. 08591 

. 33789 

. 15732 

3.71 

29.74 

50 

38 

33 

.0  8682 

.34274 

.15325 

3.94 

23  .  54 

5  0 

30 

34 

. 08629 

. 33269 

. 15762 

3.51 

23.35 

50 

4  0 

35 

. 03633 

.33968 

. 15774 

3,30 

23,47 

50 

44 

36 

. 08652 

.33720 

. 15789 

3.70 

29,  0  9 

50 

31 

37 

. 03466 

.32343 

. 15600 

3  ,  27 

28,94 

5  0 

31 

38 

. 08430 

.32945 

. 15566 

3,29 

28.62 

50 

94 

39 

. 03466 

,31729 

. 15586 

2.80 

23.75 

5  0 

85 

40 

. 08445 

.31319 

. 15561 

2.62 

29  .  1  5 

50 

86 

41 

.08548 

.31905 

, 15668 

2.91 

23  .  62 

50 

66 

42 

. 08583 

.32284 

. 15706 

3  .  03 

27.88 

50 

67 

43 

. 03569 

,31942 

. 15688 

2.93 

23.33 

5  0 

58 

44 

.08616 

.31527 

. 15729 

2.78 

28.39 

50 

53 

45 

. 03673 

.32951 

. 15301 

3.39 

29,  01 

5  0 

28 

46 

. 08768 

.32712 

. 15388 

3.33 

28.90 

50 

06 

47 

. 08778 

.32402 

, 15894 

3,21 

28.34 

5  0 

12 

48 

. 08757 

.32691 

. 15878 

3  .  32 

29.  0  3 

50 

0  7 

49 

. 08892 

.31918 

. 15998 

3.04 

23.51 

49 

32 

50 

. 0  8780 

.32379 

. 15897 

3.20 

28.24 

50 

13 

51 

. 03746 

.32749 

. 15868 

3.34 

28.  13 

50, 

22 

52 

.08814 

.31063 

. 15914 

2,65 

28,43 

50 

04 

Table  XIII.   Reduced  Data  For  the  First  Blade  Passage  of  Run  #119 
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Type  A  or- 
B  probe 


Traverse 
Pod 


Rotating 
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Stator        Rotor 


Type  A 
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Type   3 
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Figure    1.      Probe  Arrangement   in   Transonic   Compressor 
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Figure  2.   Controlled  (Paced)  Sampling  Technique 
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42.   62 

A-Probe  Pressure  (Gauge)  vs.  Yaw  Angle      YAW  ANGLE 

Solid  line  -  Calibration  Data 

Dotted  line  -  Data  Approximated  from  Specific  Data  Po 

(4th  Order  Polynomials)  Shown  as  crosse 

(Datafile:   A5KP10) 
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B-Probe  Pressure  (Gauge)  vs.  Yaw  Angle      YAW  ANGLE 
Solid  line  -  Calibration  Data 

Dotted  line  -  Data  Approximated  from  Specific  Data  Po 
(4th  Order  Polynomials)  Shown  as  crosse 
(Datafile:   B5KP10) 
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Figure   4.      High   Response   Transducer  Probes 
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(a)   End  View 


(b)   Side  View 


Figure  6b.  Free-Jet  Calibration  Apparatus 
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Ficure  6c.  Data  Acquisition  System 
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-80.-60.-40.-20.  0.   20.  40.  60.  80. 

YAW  ANGLE  [Degrees] 

Figure  7.   Pressure  Readings  vs.  Yaw  Angle.   Data  Acquired 
Using  Two  Different  Programs: 

Solid  lines  -  Program  KALIB  (Continuous  Acquisil 
Crosses      -  Program  &YAW   (Discrete  Readings) 
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Figure  9.  Type  A-Probe  Calibration  Data  at 
Mach  =  0.4.  Pitch  Angles  in  the 
Range  from  -15°  to  +25° 


76 


A 
[inches  H20  Gauge] 

60. 


40. 


20, 


0. 


20. 


-40 


olj. 


—  80.  —60.  - 


40.-2 


0. 


^  Zi .   4-  \o  •   O  i^J  -   OkJ 
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Figure  10.   Type  3-Probe  Calibration  Data  at  Mach  =  0.4. 
Pitch  angles  in  the  Range  from  -15°  (Top)  to 
+25°  in  5°  Increments.   Some  Holes  in  probe 
tip  are  contaminated  by  dirt. 
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Figure  11a.   Probe  Tip  with  Dirt  in  Some  Holes 


WW   :?: 


Figure  lib.   Probe  Tip  with  Dirt  in  Some  Holes 


78 


[inches    H20    Gauge] 

60. 


40 


20, 


0 


-20, 


40 


60, 


80.  -60.  -40 

Figure  12. 


-20.  0.   20.  40.  60.  80 
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Type  B-Probe  Calibration  Data  at  Mach  =  0.4. 
Pitch  angles  in  the  Range  from  -15°  (Top)  to 
+25°  in  5°  Increments.   Clean  Probe  Tip. 
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(Mach  »  0.6,  Pitch  angle  =  25°) 
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Figure  17.   Combination  Pressure  Temperature  Probe 
(Tip  Detail) 
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Figure  18.   Pressure  Coefficient  for  Type  A~Probe  at  Zero  Yaw 
Angle  as  Function  of  Mach  Number  and  Pitch  Angle. 
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Pressure  Coefficient  for  Type  B-Probe  for  Zero  Yaw 
Angle  as  Function  of  Mach  Number  and  Pitch  Angle. 
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Figure  22.     Relative  Velocity  Distribution  W2  at  Roto] 
Trailing  Edge  (Schematic) 


93 


3  2  =  const. 
U  _   =    const. 


♦  y 


/ 


Xw~ 

A/ 

Wl/ 

UA 

Xui 

•     \  ft 
/     \'J2 

/ 

^\W 

V 

vi 

*-*^»^^ 

'/ 

\N 

Xva 

^Ss^ '/ 

-g(x) 


S  (x±) 

=  Xu_  +  tan  32  x 

xi 

■  Xv.    cos  a. 
i             i 

yi 

-  Xv.    sin   (360°) 

X 

yi 

=   (-  Xv.)   sin  a. 

v         x               x 

-  Xv.    sin  a.   =  -  Xu.  +  tan  £0  Xv.    cos  a. 
x  i  x  2       i  x 


Xu.    -  Xu.    -  Xu 
A  i 


Xv.    = 


Xu 


i       tan  $     cos  a.  +  sin  a. 


Figure   23.      Velocity   Triangles    for  Varying  Values   of  the 
Relative  Velocity     Xw    . 


94 


Dimension  less 
Velocity  X  (/) 


0.1528 


39.11 


60       70       30 

Yaw  Angle  (Degrees) 


Figure  24.  Dependence  of  Absolute  (Xv)  and  Relative  (Xw)  velocities 
on  Yaw  Angle  (a)  Assuming  constant  Values  of  Circum- 
ferrential  Velocity  (Xu=0. 24219)  and  Relative  Flow- 
Angle  (32=50.89°) • 


95 


16, 


12. 

8. 

4. 

0. 

-4. 

GO 

LU 

a: 

UJ 

c* 

UJ 

1 

Sri 

16. 
12. 

8. 

4. 

c3 

Q- 

0. 

-4. 

15. 

12. 

8. 

Figure  25. 


64. 
10%  error  in  PI 


128.  192.         256, 

No  error  in  P23  and  P4 


0.  64. 

No  error  in  PI 


128.  192.         256. 

10%  error  in  P23  and  P4 


4.  _ 


0. 


VTT. Z5fc. 

10%  error  in  PI        10%  error  in  P23  and  P4 

Influence  of  Incorrect  Pneumatic  Probe  Pressure  Readings  Run  ill 

50%  Design  Speed,  Near  Peak  Efficiency,  Dotted  Line  -  No  Errors 

96 


YAW  ANGLE  (DEG) 

0 


SO 


'Pa 


TIME  AVERAGED 
DATA 


COUNT  128 


COUNT   181 


COUNT   188 


COUNT  195 
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calibration   at  M  =   0,4    ,    <j>   =   0°)  . 
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APPENDIX    A 
CHANGES    MADE    TO    SOFTWARE.  FROM    ( Re  f .     4) 

The    changes    made   by   McCarville    and   reported  in    Ref.    4 
brought   about   two   general    improvements:      hardware    changes  which 
eliminated   the   need    for   an   operator-performed   lock-on   proce- 
dure   and  software    changes  which    allowed   the    acquisition   of 
one    sample    for  each    consecutive    revolution   instead  of  every 
tenth   or  eleventh    as   before.      In    the   process   of   integrating 
the   new   software    into   the    data   acquisition   program,    one   minor 
and  one    significant  error  was    found  in   the   subroutines    used    for 
acquiring   data   through   the  A/D    converter. 

The   data  is    transferred   from  the   A/D   converter   to   the 
21MX    computer  in    16-bit  words.      Only    the   highest    10   bits    contain 
the    digitized  voltage  while    the  A/D    channel   number    (0    through 
15)    is    transferred   in    the    lowest   4  bits.      Using  the   highest   bit 
for   the    sign,    the    range   of  numbers  which    can  be    transferred 
is    thus    ±(2      -1)    or   ±32,767,   while    the  smallest   meaningful 

division   is    2      or   6  4.      The    resolution  which    can  be    achieved 

26  _io 

therefore    is    -•*-?-     or      2  or  0.0009  76      of    full    range.      Since 

the    full    range   of   the  A/D  is      -IV   to   +1V,    the   instrument 

resolution  is    to    about    2   mV. 

The  procedure   of  masking   can  be    used   to    derive    an   exact 

digital   number  solely    from  the   highest   10   bits   of   the   transmitted 

word.      If   this    is    not   done,    the  A/D   channel   number    from  the 

low  bits    is    included  when   converting  the   data  word   to    a   decimal 

number.      The    result   is    to   create    decimal   numbers  which    appear 
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to   be    changing  with    a   resolution  of   2*    is    ±32,767   or   0.0305    mvs . 
Since    the   increase   in  program  running   tine    due    to   masking  was 
insignificant,    this   procedure  was   built   into   the    data  acquisition 
program. 

The   second  error  was    found  while    using   the    data   acquisition 
program.      It  was   noted   that   a   different  number  of   samples 
acquired    from  the    same    machine    conditions    did  not  bring   any 
significant    change    in   the    smoothness   of   the   output.      An 
examination   of   the   output  of   5    individual    samples    (Table   A-I) 
and   the    average    derived   from  these   samples    showed   that  only 
the    first  sample  was    converted    from  an   integer   into    a   real 
number    and   that  the    same    real   number   resulted   for  each    individual 
sample   no   matter  what  was    the    value   of   the   integer. 

Figure   A-l    shows    the    listing  of   the   original    subroutine 
(RPACE)     from  McCarville  which    acquires    raw    data.      The   single 
samples    are    read  into    array   IBUFF(99)    correctly    (lines    #90 
and   #125).      The    conversion   into    real  numbers    is    incorrect,    in 
that  only    the    first   value  of   the    array   IBUFF(99)    is    converted. 

Figure   A-2    shows    the    corrected   DO-loop. 

Table  A-II    shows    values    achieved   using   the    corrected 
subroutine.      It    can  be    seen   that   changes    in    the   integer  numbers 
are    reflected  in   the    calculated   real   numbers. 
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In    the    acquisition   program   discussed  herein    a   subroutine 
similar   to    the   one   of   Fig.    A-2   was    used. 
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Table  A- I. 


Results  Using  Uncorrected  Subroutine 
RPACE  (&  A2D,  McCarville,  Ref.  4) 
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f.F  (  ISURV  ,  'EO ,  1  *>     GO  TO  120 


SINGLE  pn  [NT  AC  3  i  3 IT]  i  ! 


-"-  '•+- ipos  i:t 

GO    TO    1 0  0 


IBLADE-256* (  LP A  ;  R 

IF     (  !'.MODE     ,     EO ,     0 

IBLADE==  :     I      i  E+i  0  0 
100    CALL    EXEC.     (3  ,19  > 

CALL    EXEC     (  1  ;  19  ,  I  RPM    i  .  IB!.  A  OF  i 

CALL    EX  ..        i   i.    20  ..  [fill!  F  .   J     CCHAi    .   )  ) 

DO    110     !>1.  -  IMG  ' 
ij.fi    R  B\  |FF~R  fil  !FF  H-'!  GA  r  (  l  R!  iFF  <  1  )  •  .  '' .    '•'  68  , 

PTDAT  ■•       BUFF  /I  AUG 

GO    TO    195 


3 1 J  R  U E r    A C R O S S    6 L A  O E    P  A I R    A C  Q  U I SI T i 


■!.,,'  D     [F     '   i.   !!■■;■  ■;     ,  EO  ,     0  >     GO    TO    1.25 

[OFF  3=  '    -  '       DF'FS 

GO    Tfl    12? 
i    "        OFFS-i 
:   .  ■  '       ■'     i.  4  0 

S'Hi  ADF~2'";,'    .  >   [PAi'R-i   J  +  .T  +  P5  /-,/"!    !!-FS  +  j  0  0 

CALL      :     :         1  3     19 


[    I...L   EXEC    (  1  ..  19  .  i:  ?PM    i      :i 
CALL     EXEi      (  i  •.  20  >  .  N 

R BUFF-0  ,  0 

DO  i.  3  0  K  ;::':  ! I 


f.)l" . ; 

.  .    i 


130  RBUFF      :  -f 

DA  f'A"=R  Bi  '   /  [AUG 
1  K.)  3RUPT  <  J  )  "--DA  i'A 


I-  :■■  )  /  „j^ 


OUTPUT  TAB!  ES>  ?9,   !.N"f 


JRITE  (6.146) 
1  4*   :"ORMAT  (     3  5  '     "PACI  D  SURUE'f  )ATA" 

WRITE  (  ,:-  .  i  48  )  '  SRUP  3 
i 48  FORMAT « 8   !   :  8  ,  7  )  ) 
1  50  RPM--60  /  '  '(.&'£  M:*  ,000i 

WR  [  i'E  '■  h  ..  165)  RPM 
-  FORMAT  </  20X ,  "COMPRESSOR  RPM  FOR  THIS  RUN  <-■ 
CF7.  2,/) 

GO  TO  999 
i  95  WR  !  IE  (  6  ■  1  9  6 )  I  P  OS  ■  T  I P  A I  R  ,  P  T  0  A  '!  A 
196  FORMATC  THE  DATA  '   UE  FO   POSITION  M3,"  OF 
■f  1 2  ■.   "    1 8    "  ;  F 10 

GO  TO  1 50 
99°  RETURN 

END 


Figure   A-l.      Unchanged   Listing   of  Subroutine    RPACE    from 
Program   &  A2D    (P.    McCarville,    Pef.    4) 
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ii?p  :i  A'!;F-".:'"-':-''  '.&<  rPAIR-5  '  . '  FFS+iOOflO 

012  CALL    EXEC    (3,19) 

Q  '  24  ■!  L    EXEC     (  *     19     !   I     1     i     IBLADETO 

0125  C  A  i...  I...    E  a  E  G    (1,20  ,  t  &  1 1 ;:: !;:'  .  fl  ,  E  C  H  A  N    (J ) 

0126  RBUFF-0  .  0 
012'?  DO    130    K»l  ■  N 

0128  430    RBUFF=RBUFF+FLOAT<  TBUFF(K) )     32768, 
0  1.29  DATA=RBUFF/:i.'AMG 

0130  140    SRWTC  J)~DATA 

Figure   A-2.      Corrected  Statement  of  Subroutine 

SPACE    from  Program   &A2D    (P.    McCarville,    Ref.    4) 
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APPENDIX  B 
OUTPUT  CHARACTERISTICS  OF  TYPE  "A!'  AND  TYPE  "B"  PROBES 

The  DPDS,  measurements  are  carried  out  using  two 
different  kinds  of  pressure  probes.   The  type  "A"  probe  is 

essentially  a  total  pressure  probe  (see  Fig.  4).   The  general 
behavior  of  such  a  probe  with  respect  to  angle  changes  has 
been  established  for  quite  some  time  (Ref.  10).   However, 
using  a  pneumatic  equivalent  probe  to  the  "A"  probe  the  out- 
put of  the  probe  as  a  function  of  yaw  angle  was  established 
with  the  probe  mounted  in  the  steady  flow  of  a  freejet. 

Figure  B-l  shows  this  dependence.   The  characteristics  of 
this  curve  are  a  flat  top,  indicating  an  insensitivity  of  the 
probe  to  yaw  angle  changes  of  up  to  ±20   from  the  zero  yaw 
angle  position  ,  and  the  steep  but  almost  linear  parts  from 
-70°  to  -40°  and  +40°  to  +70°.   At  yaw  angles  of  -63°  and 
+63°  the  probe  reads  static  pressure  and  that  happens  inde- 
pendent of  Mach  number  and  pitch  angle  as  long  as  the  pitch 

o  o 

angle  does  not  exceed  a  range  of  -5   to  about  +15  . 

Figure   9   shows  the  output  of  the  type  "A"  probe  for 


different  pitch  angle  settings  but  one  Mach  number  only.  It 
can  be  seen  that  pitch  angles  ranging  from  -15  to  +25  at  a 
5°  increment  produce  almost  identical  curves. 


Figure  1  2  shows  the  output  of  the  type  "B"  probe  for  the 
same  Mach  number  and  the  same  range  of  pitch  angle.    It 

can  be  seen  that,  compared  to  the  "A"  probe 
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probe  does  not  have  a  flat  top  for  a  range  of  measurement 
close  to  the  zero  yaw  angle  (zero  being  the  yaw  angle  where 
the  probe  is  aligned  with  the  flow) .   Instead  it  shows  a 
clear  and  well-defined  maximum  in  output  for  the  zero  yaw 
angle.   It  is  also  evident  that  the  output  depends  very  clearly 
on  the  pitch  angle.   The  yaw  angle  where  the  probe  reads  static 
pressure  is  different  for  different  pitch  angles  and  Mach 
numbers.   Different  Mach  numbers  always  show  only  one  curve  for 
the  "A"  probe  (independent  of  pitch  angle)  while  the  "B"  probe 
depends  on  changes  of  both   Mach  number  and  pitch  angle  . 
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APPENDIX  C 
DATA  ACQUISITION  PROGRAMS  &KALIB  AND  &YAW 

The  purpose  of  both  programs — &YAW  and  &KALIB — is  to  ac- 
quire sufficient  data  for  the  calibration  of  either  the  type 
"A"  or  "B"  probe.  It  has  to  be  mentioned  here  that  only  one 
probe  can  be  mounted  in  the  center  of  the  free jet  at  a  time. 
It  is  therefore  essential  to  establish  identical  conditions 
for  the  calibration  of  both  probes. 

Since  the  data  reduction  as  outlined  in  4.1  requires  not 
only  the  knowledge  of  Mach  number  and  pitch  angle,  but  also 
the  probe  output  characteristic  as  a  function  of  yaw  angle, 
data  is  acquired  for  different  yaw  angle  settings.   Here  is 
the  major  difference  between  programs  &YAW  and  &KALIB.   While 
program  &YAW  requires  the  data  acquisition  at  one  specific 
yaw  angle  setting,  &KALIB  acquires  data  in  a  continuous  mode 
for  a  range  of  160   (-80   to  +80  )  in  yaw  angle. 

However,  program  &YAW  will  be  described  first,  since  it 
is  the  more  conventional  one. 

C-l.   PROGRAM  &YAW' 

Since  parameters  have  to  be  changed  during  a  calibra- 
tion, the  program  has  to  work  interactively  with  operator 
input.   For  each  selected  combination  of  Mach  number  and 
pitch  angle  data  can  be  recorded  for  up  to  31  probe  yaw  angle 
settings.   For  any  of  these  settings  the  values  of  total 
pressure,  Kulite  reference  pressure,  probe  yaw  angle  and  Kulite 
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pressure  reading  are  acquired  as  the  average  of  10  data 
samples  each.   The  pitch  angle  is  keyed  in  by  the  operator 
prior  to  the  measurement  and  the  total  temperature  and  the 
barometric  pressure  (static  pressure  since  it  is  a  freejet) 
are  measured  also.   When  the  data  for  one  yaw  angle  position 
is  taken  the  operator  is  asked  to  have  the  probe  moved  to 
another  yaw  angle  and  initialize  the  data  acquisition  process 
again. 

Once  the  data  for  all  31  yaw  positions  are  taken,  the 
operator  is  asked  to  key  in  a  file  name.   The  raw  data  from 
this  calibration  is  then  stored  in  a  file  with  the  name  pre- 
viously assigned. 

In  the  next  step  absolute  values  for  the  total  tempera- 
ture (degrees  Fahrenheit)  and  the  static  pressure  (inches  Hg) 
are  calculated.   File  name,  pitch  angle,  total  temperature  and 
static  pressure  are  written  on  the  line  printer.   The  follow- 
ing DO-loop  derives  absolute  values  of  the  impact  pressure 
(inches  of  water) ,  the  Kulite  reference  pressure  (inches  of 
water) ,  the  probe  yaw  angle  (degrees) ,  and  the  Kulite  pressure 
output  (inches  of  water)  as  a  gage  pressure.   From  these  values 
a  pressure  coefficient  c   defined  as 


PR  +  pref 


-  D 
C 


P  Pt  "  Ps 

where    pT,  =  Kulite  pressure 

p  e   =  Kulite  reference  pressure 
^ref 

p.  =  total  pressure 
p   =  static  pressure 
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is  derived.   All  of  these  values  are  tabulated. 


A  plot  of  c   vs  yaw  angle  is  produced  automatically 
with  the  operator's  choice  of  drawing  a  full  grid  or  just  the 
calibration  result. 

After  this  the  program  can  either  be  stopped  or  started 
again  for  a  different  flow  condition. 

C-l  gives  a  flow  chart,  while  C-2  is  a  program  listing. 

Externals:  ABRT,  CLEAR,  CLOSE,  CPLOT,  CREAT ,  DRAW,  FXD, 
LABEL,  LDIR,  LOCL ,  MOVE,  OPEN,  PLOTR,  RMOTE , 
SCANR,  SETAR,  VIEWP ,  WINDW,  WRITF 


Variables 
CDATA (32) 
DATA (32, 4) 

ICR 

IDCB(144) 
IFILE(3) 
IGCB(192) 

IL 

ISECU 
ISIZE(2) 

ITYPE 

S 
T 
U 
V 

W 

X 
Y 
Z 


Type  Description 

Real     Array  containing  pressure  coefficients  c 

Real     Array  containing  complete  raw  calibration 
data 

Integer  Cartridge  reference  number 

Integer  Data  control  block 

Integer  Array  containing  file  name 

Integer  Graphic  data  control  block 

Integer   Total  number  of  words  to  be  stored  in  raw 
data  file  (two  words  for  one  data  value) 

Integer   Security  code 

Integer   Array  to  specify  file  dimensions  (1st 

word  for  number  of  records,  2nd  for  record 
length) 

Integer   Type  of  data  file 

total  pressure 

,      ,.      _   Kulite  ref.  pressure 
Real     Sample  readings  of  „^~u~   „„„  „««i« 
^  3       probe  yaw  angle 

Kulite  output 


Real 


Average  values  of 


total  pressure 
Kulite  ref.  pressure 
probe  yaw  angle 
Kulite  output 
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C-2.   PROGRAM  &KALIB 

As  stated  earlier  this  program  records  probe  data  for 
more  yaw  positions  than  program  &YAW.   Once  either  the  "A"  or 
the  "B"  probe  is  mounted  on  the  freejet  and  the  desired  flow 
condition  (Mach  number  and  pitch  angle)  is  established,  the 
actual  pitch  angle  is  keyed  in,  and  single  measurements  of 
total  temperature  and  pressure  as  well  as  Kulite  reference 
pressure  and  barometric  pressure  are  taken.   The  operator  is 
then  asked  to  start  the  data  acquisition  process  for  the  Kulite 
pressure/yaw  angle  measurement.   Simultaneously  the  operator 
has  to  signal  that  the  probe  shall  be  rotated  in  the  freejet. 
While  the  probe  is  rotated  from  -80°  to  +80°  in  yaw  at  a  con- 
stant rate  of  -3  /sec,  the  yaw  position  and  the  corresponding 
Kulite  pressure  reading  is  recorded  alternatingly .   When  the 
whole  range  of  yaw  angle  is  finished,  the  flow  conditions  are 
recorded  again  and  the  probe  is  rotated  backwards  160   with 
the  same  data  acquisition  process  as  before.   Then  the  jet 
conditions  are  recorded  a  third  time.   All  raw  data  is  multi- 
plied by  its  corresponding  scaling  factor.   The  total  tempera- 
ture is  calculated  in  degrees  Fahrenheit.   A  pressure  coefficient 
as  defined  in  C-l  is  derived  for  all  300  points  of  measure- 
ment.  The  whole  data  array  (contents  are  defined  in  the  listing) 
is  stored  in  one  file  with  its  name  as  operator  input.   A 
complete  output  of  the  file  contents  is  printed.   (Note: 
line  printer  must  be  set  to  "comp".) 


Ill 


The  operator  is  then  asked  to  specify  the  form  of  a 
plot  of  the  just-acquired  data.   When  the  plot  is  completed 
the  operator  has  the  choice  of  stopping  the  program  or  per- 
forming another  data  acquisition  for  a  different  flow  condition, 

C-3  gives  a  flow  chart  of  &KALIB  while  C-4  is  a  program 

listing. 

Externals:  ABRT,  CLEAR,  CLOSE,  CPLOT,  CREAT,  DRAW,  FXD, 
LABEL,  LDIR,  LOCL ,  MOVE,  OPEN,  PLOTR,  RMOTE , 
SCANR,  SETAR,  VIEWP ,  WINDW,  WRITF 

Description 

Array  containing  pressure  coefficients 

c 

P 

Array  containing  complete  raw  calibration 
data 

Cartridge  reference  number 

Data  control  block 

Array  containing  file  name 

Graphic  data  control  block 

Total  number  of  words  to  be  stored 
in  raw  data  file  (two  words  for  one 
data  value) 

Security  code 

Array  to  specify  file  dimensions  (_lst 
word  for  number  of  records,  2nd  for 
record  length) 


Variables 

Type 

CDATAOOO) 

Real 

DATA (2, 3  20) 

Real 

ICR 

Integer 

IDCB(144) 

Integer 

IFILE(3) 

Integer 

IGCB(192) 

Integer 

IL 

Integer 

ISECU 
ISIZE(2) 

ITYPE 


Integer 
Integer 


Integer    Type  of  data  file 
By  comparison  of  sets  of  data  acquired  with  both  pro- 
grams for  the  same  flow  conditions,  no  difference  was  found 
between  the  results  of  the  two  programs. 
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Since  program  &KALIB  offers  much  more  overall  informa- 
tion in  even  shorter  time,  it  was  used  for  the  whole  calibra- 
tion of  both  probes  with  occasional  comparisons  between  the 
two  program  results.   Plots  of  the  probe  outputs  vs  yaw  angle 
were  produced  and  stored  for  each  of  the  conditions  to  have  an 
easy  and  clear  idea  of  the  probe's  general  behavior. 
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c 


START 


00\ 


■) 


SET  INTERFACE  BUS 
A,  DEVICES  TO 
REMOTE  CONTROL 


PRESET  DATA  ARRAY 
WITH  0,0 


RECORD  P  REE  JET 
FLOWCONDITIONS 


RECORD  ISO  PROBE 
DATA  SAMPLES 


.RECORD  FREEJET 
FLOWCONDITTONS 


RECORD  ISO  PROBE 
DATA  SAMPLES 


SCALE  RAW  DATA 


RECORD  FREEJET 
FLOWCONDITIONS 


READ  FILFNAMECREATE 
FILE  A,  STORE  DATA 


PLOTT  KULITE  OUTPUT 
US.  YAWANGLE 


C 


STOP 


3 


Figure  C-l.   Flow  Chart  of  Data  Acqusition  Program  &  Y 


aw 
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&YAW 

00O1 
0  0  0  2 
0003 
0  0  04 
0005 
0006 
000? 
0  0  08 
000? 
G010 
00  li 
0012 
0013 
0014 
0015 
001b 
0017 
0019 
0019 
0020 
0021 
0022 
0023 
0024 
002S 
0O26 
0027 
0028 
0029 
0030 
0031 
0032 
0  0  "53 
0034 
0033 
0036 
0037 
0038 
003? 
0040 
0041 
0042 
0043 
0044 
0045 
004o 
0047 
0048 
0049 
0050 
0051 
0052 
00S3 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0073 


T=00004  IS  ON  CR00026  USING  00025  BLKS  R=0O00 

FTN4,L 

PROGRAM  YAU 

REAL       DATA<32,4)  ,CDATA<3?> 

DIMENSION  IGCB(192).ICCB(144),IFILE<3>,ISIZE 

DATA       IDCBS  /144/ 


(2) 


DATA 
DATA 
DATA 
DATA 
DATA 


ISECU  /0/ 

ICR  /29/ 

ITYPE  /l/ 

ISIZE  /2.12E 

IL  /256/ 


PROGRAM  TO  ACOUIRE  DATA  FOR  THE  CAL&RGTION  OF  A  KUL1TE  PROBE 
THIS  PROGRAM  TAKES  DATA  AT  DEFINED  YAW  POSITIONS. 
ONLY  THE  RAW  DATA  IS  STORED. 


131  FORMAT 

102  FORMAT 

103  FORMAK 

104  FOR.MAK 
*e  o  a  t  = 

105  FORMAT 
*  i  ') 

106  FORMAT( 
*EY,  IF 

107  FORMAT 
*E,  KEY 

149  FORMAT 

601  FORMAT 

602  FORMAT 
t03  FORMAT 

*p"//) 
604  FORMAT 
301  FORMAT < 

1001  FORMAK 

1002  FORMAK 
1111  FORMAK 

1301  FORMAK 

1302  FORMAK 

1303  FORMAK 
1501  FORMAK 


(  -  READ  PITCHANGLE  FROM  TERMINAL'") 

(  14) 

"  UHEN  YOU  ARE  READY  FOR  THE  "14".  MEASUREMENT,  HIT  CR  ' " > 

"    Pr  tunnel=  "F6.6"  P  ref.=  "F8.6"  Probe  pos.=  "F8.6"  Kuln 

"F8.6> 

t"  ENTER  THE  FILE  NAME  YOU  WANT  THE  PAW  DATA  TO  BE  STORED  |i 


•/' 


ANY  OTHER  i 


1X.3A2/) 

P  6nro  =  "Ff3.  S//> 

P  r«f  .     Pt  Tunne 1"16X"C 


"  IF  YOU  NEED  A  COMPLETE  NEU  FRAME,  KEY 

NC  T ! "  ) 

I"  IF  YOU  WANT  ANOTHER  SET  OF  DATA  FOR  A  DIFFRENT  P  I  Tf.H  AMI 

YES"/"  ANYTHING  ELSE,  IF  NOT!") 

( (3A^> ) 

(-  RA.I  T^TA  ARE  STORED  IN  FILE 

<"  Pitcn  ='-!4"  Tunnel  Tenp.="F 

C "    *      YAU    ruliteout 

(I4,lX,F7.3,3(lX.Fl2  5),6X,Fi2.6) 

"CA  ) 

"F1R7M3A1H0T3") 

"F1R7M3A0H0T3") 

"   ♦  ="IS"IERR  =  "15  ,Fi2. 4) 

"B-PRO&E      PITCH  =  ''I4,10X"P  BARO  ="F7.3) 

"TUNNEL  TEMPERATURE="F7.  3,2X"FIl.E  i  "5A2> 

CP  "  ) 
"CA") 


DATA  LOCATION  IN  THE  DATA  FILE  : 

>OR  I  =  1  TO  31,  I  IS  THE  NUMBER  OF  THE  YAW  ANGLE. 

.FOR  EACH  OF  THESE  YAU  ANGLES  THE  ARRAY  CONTAINS  THE  FOLI.OUING 

.VALUES  IN  THE  GIVEN  ORDER: 


♦    1    Pt    tunnel 
»    2 


P    rti  .     K  (j  1  i  T  e         Probe    position         K  u  1 1  t  e    pre',s 


#3 

DATA<32,1 ) 
DATA(32 ,2) 
,DATA(32,3) 


con  tains 
contains 
contains 


?l  Tchang  le 
t  Tunnel 
P  bar  o 


input  fron  terminal 
read  from  scanr  *2   ch  6 
read  froh  scanr  *1   ch  ?.r. 


001 


CALL  ABRT<7,2) 
CALL  RMOTE<  8) 
CALL  RMOTE(IO) 
CALL  RMOTE(IS) 
UR1TE  <8,801) 
WRITE  (10,1001) 
URITE  (IS, 1501) 


PRESET  DATA  ARRAY  WITH  0.0 


DO  002  I 


=  1 ,32,1 


Figure    C-2. 


Listing   of    Calibration   Data   Acquisition   Program    &YAW 
(Continued   on   next   page.) 
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■  07? 

•»  r3  6 

181 

132 

)83 

)<i4 

IBS 

186 

187 

198 

189 

170 

091 

172 

T93 

194 

J9S 

i76 

177 

178 

77 

!00 

01 

102 

03 

04 

03 

106 

07 

108 

07 

10 

It 

12 

1  ^ 
14 
IS 
16 
17 
18 
19 

;'o 

21 
22 

2  3 
24 
2S 
26 
27 
28 

12? 
50 

i  Jl 
3? 
S3 
34 
?S 
56 
57 
'.8 
',7 
40 
11 

1  42 
13 

I  14 
4S 

m 

i  18 

I49 

SO 

'SI 

!H 

I  54 

SS 

i56 

157 

S8 


002 


003 


008 


010 


040 


0.  0 

0.0 

0  .  0 

0  .  0 

SCANR( IS, 06,01 ) 

SCANR(08,2S,0i) 


DATAd, 1>       = 
DATA(i;2>      = 

DATA(I,3)       = 

DATAd, 4)       = 

DATA < 32,2)    = 

DATA(32,3>    = 

URITEd, 101) 

READ    (1.102)    DATA<32,1) 

URITE( 10.1002) 

DO    010    I    =    1,31,1 

WRITE    (1,103)     I 

(1.149)     IDUM 

(IDUM    ,NE.    2H       )    GOTO    003 


READ 

IF 

U 

X 

Y 

Z 


DO    008    J      = 
S 

u 

T 

X 

U 

Y 

V 

Z 

DATA(I,1)     = 

DATA(I,2)     = 

DAT A (I,  3)    = 

DATA<I,4)    = 

URITEd  ,104) 

URITEd' 105) 

READ       (1,149 

CALL   CREAT     ( 

JJ    =    1 

IF    (IERR     .LT 

CALL    OPEN       ( 

JJ    ■    2 

IF    (IERR     ,LT 

CALL    URITF    ( 

JJ    =    3 

IF    (IERR     .LT 

CALL    CLOSE    ( 

JJ     =    4 

IF     (IERR     .LT 

DATA(32,2)    = 

DATA(32,3)     ■ 

URITE<6,601  ) 

URITE(6,602> 

URI rE(6,fa03) 

DO    020       I    = 

DATA<I,1)    = 

DATA( 1,1)     = 

DATA(I,2)    = 

DATA(I,3)     = 

DATAd. 4)    = 

CDATA(I)     =     ( 


1,10,1 

SCANR<  15,20,01  ) 

u  ♦  s 

SCANR( 15,21,01) 
X    +    T 

SCANR( 15,22,01) 
Y    ♦    U 

SCANR( 15,23,01) 
Z  +  V 
U/10 
X/10 
Y/10 
Z/10 
(DATA(I,J) ,J=    1,4,1) 

)     IFILE 

IDCB.IERR  ,IFILE,ISIZE,ITYPE,ISECU,ICR .IDCBS) 

.    0    >    URITEd, 1111)    JJ.IERR 
IDCB,IERR,IFILE,IOPTN,fSECU,ICR,IDCBS) 

.     0     )    URITEd  .1111)    JJ,IERR 
IDCB.IERR, DATA, ID 

.    0    )    URITEd  ,1111)    JJ,IERR 
IDCB,IERR,  0) 

0    )    URITE    (1,1111)    JJ.IERR 
32.6149    +    34727.9    »    DATA(32,2) 
DATA(32,3>    *    10000 
IFILE 
DAT A (32,1) , DAT A (32, 2), DAT A  (32, 3) 

1  .31.1 
DATA! I 


1) 

DATAdjl) 
DATA( 1,2) 
DATAd  ,3) 
DATA( 1,4) 
DATA( 1,4) 


10000 

10 

10000 

10000 

10000 

DATAd 


)  >  /  DATAd  ,1  ) 


020   URITE  (6,  60  4)  I  ,DATA<  I  ,3)  ,  DATA  ({^4)  ,  DAT  Ad  ,2  5"  ,  DATAd  ,1)  ,CDATA(I) 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

WRITFf 1 

READ  (1 


CLEAR 

LOCI. 

PLOTR 

SE1AR 

VIEUP 

UINDU 

FXD 

106) 
149) 


(7,1  ) 

(75 

(IGCB, 2,1 ,13) 

(IGCB,1 .5) 

(  IGCB.30 .  ,110 . 

<  IGCB,-80' ,80, 

(  IGCB,1 > 

IDUM 


d,  1 


(1  ) 
0) 


IF(IDUM.EQ.2HYE)   CALL  LGRID  (IGCB,-S. 
CALL  MOVE   ( IGCB,DATA( 1,3) ,CDATA( 1) ) 
DO   040  1=1.31,1 
CALL  DRAU   < IGCB ,DATA( I .3 > .CDATA( I > > 


0.5,0.0,0.0,4.0,1.0,1.0) 


CALL  UIEUP 
CALL  UINDU 


,'0.,'i 


(  IGCB.0. ,1S6 

(  igcb'o . ;iso 

CALL  MOVE   ( IGCB, 22. , IS.  ) 

CALL  CPL0T(IGCB.-8.  ,6  .  ,0) 

CALL  LABEL  ( IGCB) 

URITE (13, 1301) DATA (32,1) .DAT A (32 

CALL  MOVE   ( IGCB, 22. , 10. ) 


3) 


Figure  C-2. 
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0159  CALL  CPLOT  ( IGCB , -8 .  ,  0  .  ,  0  .  ) 

0160  CALL  LABEL  (IGCfcJ 

0161  WRITE  113,1302)  DAT A< 32 . 2 > , IFILE 

0162  CALL  MOVE   ( IGCB, 13 .  0  .20 ■  > 

0163  CALL  CPLOT  ( IGCB  ,  -8 .  ,  6  .  , 0  .  0  ) 

0164  CALL  LDIR   (IGCB. +1.57) 

0165  CALL  LABEL  (IGCB) 

0166  URITF  <  13  ,1303) 
0  167  WRITE (1,1 37) 
0168  READ(1,149)  IDUM 

0167  IF  (IDUM  .EQ.  2HYE)  GOTO  1 

0170  STOP  7777 

0171  END 

0172  REAL  FUNCTION  SCANR  (LU.ICHAN.K) 

0  173  C       

0  174  C 

0175  C  Close  relay  ICHAN  on  scanner  LU  and  read  the  instrument 

0176  C  .   indicated  by  K  . 

0177  C  .   Author:     Robert  N.  Geopfarth 

0178  C  Date:       February  31,  1979 

0179  C  .   Detailed  proqran  description  is  available  in  TXCO  loq;   the 

0180  C  .   variables  are; 

0191  C         LU      ...    LU*  of  desired  scanner  (8  or  15). 

0182  C  .   ICHAN   ...    Scanner  channel  (integer). 

0183  C  .   IC      ...    Scanner  cnannel  (ASCII). 

0184  C  K       ...    Instrument  code  (  DVM  =  1  /  Counter  =  2  ). 
0  185  r: 

0186  G  

0187  *,  Closes  scanner  and  reads  DVM ,  counter.   * 
0)88  101  FORMAT  <A2) 

0189  801  FORMAT  (  "C"  ) 

0190  1001  FOPMAT  ("T3T3") 

0191  1^01  FORMAT  ("T") 
019?  1501  FORMAT  (  "C"  > 
0193 

0194  WRITE  (  e,  801) 

0  1V5  WRITE  (15.1501) 

0196  IC  =  ICON( ICHAN, 0 ) 

0  197  WRITE  (LU,  101)  IC 

U198  GO  TO  ( 01  ,02)  K 

0  199 

'i:-00  01  CALL  TRIGR  (10) 

0201  READ   (10.    *)  DUM 

H20?  CALL  TRIGR  (10) 

0.-03  READ   (10,    *)  SCANR 

0204  GO  TO  03 

0205 

0206  02  WRITE  ( 12,1201) 

0207  READ   (12.    *)  SCANR 
i)208 

i>;»09  03    WRITE    (LU,    801) 

U210  RETURN 

'l>U  END 

i.'l?  INTEGER    FUNCTION    ICON(I,N) 

0213  IC=I+N 

i.'M  IFdC.LT.  10)    GO    TO    100 

i?15  CALL    CODE 

i?16  WR ITE( 1CON,60)IC 

217  60             F0PMAr<I2) 

213  RETURN 

219  100    ICON=IC*30060B 

.'20  RETURN 

'21  END 


Figure   C-2.       Listing    of   Calibration   Data   Axquisition   Program    &YAW. 
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c 


START 


oot 


3 


SET  INTERFACE 
BUS  4  DEVICES 
TO  REMOTE  CONTROL 


PRESET  DATA 
ARRAY  WITH  0 . 0 


ENTER  PITCH  ANGLE 
FROM  KEYBOARD 


ACQUIRE 
PROBE  DATA 


PRINT 
RAW  DATA 


READ  FILENAME. 
CREATE  FILE  AND 
STORE  DATA. 


CALCULATE 

ABSOLUTE  VALUES 
AND  PRINT  THEM. 


PLOTT  CP  VS 
YAW ANGLE 


STOP 


YES 


Figure   C-3. 


Flow  Chart  of   Data  Acquisition  Program 
&   KALIB 


118 


'A1IB  7  =  00004  IS  ON  CR00026  USING  00042  BLKS  R  =  0000 


PROGRAM  KALIB 

REAL  DATA<2,320> ,CDATA<300) 

DIMENSION  IGCBC192) , IDCB* 144 ) , IF ILE ( 3 > , I SIZE (2 ) 

DATA   IDCBS  /144/ 

DATA   ISFCU  /0/ 

DATA   ICR    /27/ 

DATA   ITfPE  /l/ 

DATA   ISIZE  /10.128/ 

DATA   IL     /1280/ 


a  o  i 

FT 

')0? 

)03 

MO  4 

'10-3 

•lib 

0  0  7 

10  8 

DO? 

•no 

111 

112 

C 

j  13 

c 

114 

r, 

ins 

'.: 

il6 

c 

'H7 

US 

'119 

020 

021 

12  5 

'24 

'  2  6 

'.27 

i;>8 

i;  2  7 

i  ?0 

31 

•>lJ 

0  !3 

i34 

0  !6 

'I  ',  / 

)3't 

i  ;y 

.40 

141 

i 

14? 

i 

043 

i 

;44 

i 

)4S 

i 

.46 

1 

'147 

i 

i48 

c 

'!  19 

c 

ISO 

c 

0  51 

i; 

1S2 

c 

'IS  3 

(. 

'134 

r. 

nns 

r 

MSfe 

f. 

')S7 

r: 

is  a 

C 

OS? 

i, 

H60 

C 

ifci 

c 

:'.2 

c 

'.(S3 

<:. 

',4 

i. 

'16S 

c 

166 

i. 

'167 

c 

160 

c 

<)6  9 

c 

i/O 

c 

ll  71 

c 

'1/3 

c 

H74 

c 

"7S 

c 

'1/6 

c 

M77 

L 

.7!) 

c 

PROGRAM  TO  ACQUIRE  DATA  FOR  THE  CALIBRATION  OF  A  KULITE  PROBE. 


101  FOP HAT* 

102  FORMAT* 

103  FORMAT* 

104  FORMAT* 
1  OS  FOR MA  I ( 

*  :  "  ) 

106  FORMAT* 
*EY. IF  N 

107  FORMAT* 
«E,  KEY 

149  FORMAT* 

601  f-URMAT* 

602  FORMAT* 
*EF  PRES 

60  3  FORMAT* 

604  FORMAT* 

605  FORMAT* 

606  FORMAT' 

607  FORMAT* 
Hi-AUANG 
#£  OUT 

608  FORMAT* 

609  FORMAT* 
801  FORMAT* 

001  FORMAT* 

002  FORMAT* 
111  FORMAT* 

301  FORMAT* 

302  FORMAT* 

303  FORMAT* 
S01  FORMAT* 


READ  PITCHANGLE  FROM  TERMINAL:") 
"WHEN  YOU  ARE  READY  FOR  THE  MEASUREMENT,  HIT  CR  <") 
"FIRST  RANGE  COMPLETED'") 

UHEN  YOU  ARE  READY  TO  MOVE  THE  PROBE  BACKUAR DS , K EY  CR '  " ) 

ENTER  THE  FILE  NAME  YOU  UANT  THE  RAW  DATA  TO  BE  STORED  IN 

IF  YOU  NEED  A  COMPLETE  NEW  FRAME,  KEY  YE  ! "/"  ANY  OTHER  K 
Ti  "> 

IF  YOU  UANT  ANOTHER  SET  OF  DATA  FOR  A  DIFFRENT  PITCH  ANGL 
ES"/"  ANYTHING  ELSE, IF  NOTi") 
3A2)  ) 

RAU  DATA  ARE  STORED  IN  FILE  :  "1 X  ,  3A2 , 15X"P ITCH  =   "14/) 

TUNNEL  TEMP.  DEC.  F   TUNNEL  PRESS.  INCHES  H20    K  R 
.  INCHES  H20  P  BARO  INCHES  HG"> 

<7X, F19. 7), 3X" BEFORE  READINGS"/) 
«7X ,F19 .7)  ,  SX  "BETWEEN  READINGS"/) 
<7X,F19.7> ,SX "AFTER  READINGS"/) 
(7X  ,F19.7)  ,SX  "AVERAGE  VALUES"/) 

•  YAUANG  KULITEOUT     CP    ♦  YAUANG  KULITEOUT     CP    ♦ 


ULITEOUT 

CP") 


CP 


*  YAUANG  KULITEOUT 


CP 


*  YAUANG  KULIT 


I3,1X,F6.3,2X,F8.S,1X,FS.3,4<I4,1X,F6.3,2X,F8.S,1X,FS.3)> 

lHi) 

"CA"  ) 

"F1R7M3A1H0T3") 

"F1R7M3A0H0T3" ) 

"   »  ="IS"IERR  =  "IS.F12.4) 

"B-PROBE   PITCH  ="I4,1X*P  BARO  =  "F7 . 3 , 1X"F ILE  ="3A2) 

"TUNNEL  TEMPERATURE=''F7  .3"  TUNNEL  PRESS  .  =  "F7  .  3  ) 

"KULITE  OUTPUT  (INCHES  H20)"> 

"CA") 


DATA  LOCATION  IN  THE  DATA  FILE 

LOCATION  IN  FILE  : 
FOR  I  =  1  TO  300   DATA<1 , I) 
FOR  7  =  1  TO  300   DATA*2,I) 

LOCATION  IN  FILE:  CONTAINS: 


DATA* 1 ,301) 
DArA<2,301 ) 
DATA* 1 ,302) 
DATA(2,302) 

DATA* 1 ,303) 
DATA(2,303) 
DATA* 1 ,304) 
DATA<2,304> 

DATA* 1 ,30S) 
DATA(2 ,305) 
DATA*  i ,306) 
DATA(2 ,306) 

B^(*2;iii5 

DATA* 1 ,319) 
DATA(2,319) 

DATA<1 ,320) 


T  total  tunne  1 
P  total  tunnel 
K  ref  ,  press . 
Baron,  press. 

T  total  t  unne  1 
P  to  tal  t  unn*  1 
K  ref .  press. 
Bar  on .  press . 

T  total  tunnel 
P  total  t  unne  1 
K  ref  .  press . 
Bar  an .  press. 

T  total  tjnnel 
P  total  t  unne  1 
K  ref  .  press . 
Baron,  pre-ss. 

Pitch  angle 


CONTAINS  I 
YAW  POSITION 
KULITE  PRESS. 

READ  FROM: 

Ch*  6  Scanr  . 
Ch*?0  Scanr . 
Ch#21  Scanr. 
Ch#2S    Scanr , 


OUTPUT 


Ch*    6    Scanr . *  2 

Ch*20    Scanr.*  2 

Ch*21    Scanr . *  2 

Ch*2S    Scanr . *  t 


b    e    f 


o    e 


n    qs 


Ch*    6 
Ch*20 
Ch*21 
Ch*2S 

Scanr 
Scanr 
Scanr 
Scanr 

* 
* 

t 

2 

2      a 
2      r 
1 

fla 

era 
1    u    e 

1 

e 

F    r 

on       t    h    r    e 

r    e 

a    d    i 

n 

a    * 

Terninal 

f    t    e    r 
e    a    d 


n    g 


a   b 


Figure   C-4 
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1)7? 

C 

130 

U  0 1 

182 

001 

i)B3 

134 

18S 

n  fife 

187 

18B 

189 

ivo 

C 

ii  VI 

c 

192 

c 

H93 

c 

■171 

c 

0  75 

■)?6 

0  97 

178 

002 

079 

1  10 

1  01 

11? 

103 

104 

105 

1  06 

00'. 

107 

l  08 

1  0? 

1  10 

1 11 

010 

1  12 

1  13 

1  14 

i  <r 

'  1  J 

i  16 

1  17 

015 

1  18 

119 

t.?0 

l.'l 

\<2 

018 

i23 

134 

12S 

126 

127 

128 

129 

\\\ 

019 

1  12 

15  S 

1  34 

020 

1  55 

1  56 

t  37 

1  ?Q 

1  37 

1  40 

021 

Ml 

1  42 

143 

1  44 

145 

146 

M7 

1  49 

1  4? 

1-30 

1   3l 

152 

153 

1^4 

155 

156 

157 

1S8 

CALL  ABRT(7,2) 

CALL  RMOTE(  8) 

CALL  RMOTE(IO) 

CALL  RMOTEdS) 

URITE  (8.801) 
URITE  (16.1001) 
URITE  (1S,1S01> 


PRESET  NEU  DATA  ARRAY  UITH  0.0 


DO  002  I   =  1,320,1 

DATAd  ,1)  =  0.0 

DATA(2,I>  =0.0 

URITEd  ,  101  ) 

READ  (1,   «)  DATAd, 320) 

DATAd, 301)  =  SCANR(15,06,01  ) 

DATA(2,301)  =  SCANR( IS, 20 ,01 ) 

DATAd, 302)  =  SCANR(  15,21,01  ) 

DATA(2.302>  =  SCANR(08,25,01) 

yRI  TE(  10,1002) 

UR  ITEd  ,102) 

READ  (1,149)  IDUM 

IF  (  IDUM  .NE.2H   )  GOTO  005 

DO  010  I  -    1  .  150 , 1 

DATAd, I)  =  SCANR< 15,22,01) 

DAIA(2,I)     =    SCANR( 15,23,01) 

DATAd, 303)     =    SCANR(iS,06,01> 

DATA(2,303)  =  SCANR( IS, 20,01 ) 

DATAd, 304)  =  SCANRt  15,21,01) 

DATA(2,304)  ■  SCANR ( 08, 25 , 0 1 ) 

URITEd  .  103) 

URITE < 1,104) 

READ(1.149)  IDUM 

IF  (  IDUM  .NE.  2H   )  GOTO  015 

DO  018  I  =  151,300,1 

DATAd, I)  =  SCANR(iS,22,01) 

DATA(2,I>  =  SCANR(1S,23, 01) 

DATAd, 305)  =  SCANR<  15,(56,01  ) 

DATA(2,30S)     =    SCANR( IS, 20,01 ) 

DATAd, 306)     =    SCANR(15,21  ,01) 

DATA(2,306)     =    SCANR(08,2S,01 ) 

CALL    CLEARS, i) 

CALL    LOCL    (7) 

DO       017     I     =     1.319.1 

PATA(1,I)     =    DATAd,  I)     *    10000 

6aTA(2'I)     =    DATA(2'l>     *    10000 

DO       026     I    =    301,305,2 

DATAd, I)     =    32.6149    +    3.47279    *    DATAd, I) 

DATA(2,I)     =    DATA(2,I)     *    10 

DATAd, 318)     =    (DATA( 1 ,301>+DATA(1 ,303)+DATA(l ,30S))/3 

DATA(2,318)  *    (DATA(2,301)+DATA(2,303)+DATA(2,305> >/3 

DATAd,  317)  =  (DATA( 1 ,302)+DATAd ,304)+DATA(l ,306) >/3 

DATA(2,319)  ■  ( DATA( 2, 302  )  +DATA( 2 , 304 ) +DA T A( 2 , 306 ) ) /3 

DO  021  I  ■  1.300,1 

CDATA(I)^=   (DATA<2,I)+DATA(  1  ,319)  )  /DATA(2,318) 

URITEd  ,105) 

READ  (1.149)  IFILE 

CALL  GREAT  <  IDCB, IERR  , IFILE, ISIZE,ITYPE, IS£CU,ICR ,IDCBS> 

JJ  =  1 

IF  (IERR  .LT.  0  )  URITEd  ,1111)  JJ.IERR 

CALL  OPEN   (IDCB, IERR , IFILE, IOPTN , 1SECU , ICR , IDCBS > 

JJ  ■  2 

IF  (IERR  .LT.  0  )  URITEd  ,1111)  JJ  ,  IERR 

CALL  URITF  ( I DCB, IERR , DATA, IL ) 

JJ  =  3 

IF  (IERR  .LT.  0  >  URITEd ,1111)  JJ,IERR 

CALL  CLOSE  ( IDCB, IERR, 0) 

JJ  =»  4 

IF  (IERR  .LT.  0  )  URITE  (1,1111)  JJ.IERR 

URITE(6,601)  IFILE, DATA< 1,320) 

URITE(6,602) 

URITE  (6,603)  DATAd  ,301)  ,DATA<2,  301)  ,  DATAd  ,302)  ,DATA(2,  302) 

URITE  (6,604)  DATAd , 303 ) , DATA( 2, 303) , DATA( 1 , 304) , DATA( 2, 304 ) 


Figure  C-4.   Listing  of  Calibration  Data  Acquisition  Program  &KALIB 
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1  J7  URITE  (6, 60S)  DATAd  ,305)  ,DATA(2,30«; )  ,DATA<1,306)  ,  DAT A( 2 , 306) 

">0  URIIE  (6,606)  DATA(1,31B),DATA<2  318)  DATA< 1,31?)  DATA<2,31?) 

1M  USITE(6,£07> 

162  DO  030   X  =1,60,1 

163  J      =1+60 
'164  II     =  J  ♦  60 

163  JJ     =  H+  60 

166  III    =  JJ+  60 
il6V    010   URITE'.  6,608)1  .DATA  <  1  .1)  .  DAT  A(  2  ,  I  )  ,CDATA(  I  )  ,  J ,DATA(1  .J)  ,DATA(2 . J>  ,C 

168  *DArA(,I)  ,  I  I,  DAT  A  (  1  ,  I  I  )  , DATA( 2 ,  II)  .CDATA(II)  , JJ , DA f A( i , J J > , DATA ( 2  ,  J  J 

169  »>,CDATAUJ5 , III ,DATA(i ,111) ,  6a T A< 2 , 1 1 1  > ,CDATA<III) 
170 

171  URITE<6,609> 

172  CALL  PLOTR  < IGCB ,2 , 1 , 13 > 
1  /  5  CALL  SETAR  <  IGCB, 1  .55 

174  CALL  VIEUP  (  IGCB, 30 ., 110.  ,20  .  ,68.0) 

1 75  CALL  UINDU  ( IGCB, -80 .  , 80 .  , - 160 . 0 0 , 160  .  0  ) 

176  CALL  r  XD    (IGCB,1  ) 

177  UfJITEd  ,106) 

178  READ  (1,149)  IDUM 

17?  IF< IDUM.EO.2HYE)   CALL  LGRID  < IGCB  , -5  .  , 1 0 .  , 0 . 0 , 0 . 0 , 4 . 0 , 2 . 0 , 1  .  0 > 

180  CALL  MOVE   ( IGCB , DATA< 1 , 1 ) , DA TA(2 , 1 ) ) 

181  DO   040  1=1.300.1 

182  040   CALL  DRAU   ( IGCB  ,  DATA( 1 . 1 )  , DAT A( 2 , I > ) 
18?  IFdDUM  .NE.  2NYE)  GOTO   0S0 

i84  CALL  VIEUP   ( IGCB , 0 .  ,  ISO .  , 0 .  ,  1  00  .  > 

'185  CALL  UINDU   < IGCB , 0 ., ISO ., 0 .,  1 0 0  .  ) 

186  CALL  MOVE   ( IGCB  ,  22 .  . IS . ) 

'187  CALL  CPL0T(IGCB,-8. ,6 . ,  0) 

188  CALL  LABEL  < IGCB) 

18?  WRI  TE< 13,  1301)DATA( 1 ,320) , DAT A (2, 31 9) ,IFILE 

190  CALL  MOVE   (  IGCB,  22.  ,10.  ) 

Wl  CALL  CPLOT  (  IGCB, -8.  ,0.  ,0  . ) 

192  CALL  LABEL  (IGCB) 

173  URITE  (13,1302)  DATA( 1 , 318 > , DATA( 2 , 318) 

194  CALL  MOVE   ( IGCB , 1 8 . 0 , 20 . ) 

195  CALL  CPLOT  (  IGCB , -8 .  , 0 .  , 0 . 0 ) 

196  CALL  LDI9   (IGCB. +  1. 57) 

197  CALL  LABEL  (IGCB) 

198  URITE  (13,1303) 
19?    050   CONTINUE 

•00  URITE(1,107) 

'01  READ<1,14?>  IDUM 

02  IF  (IDUM  .EQ.  2HTE)  GOTO  1 

'03  STOP  7777 

"'1)4  END 

'05  REAL  FUNCTION  SCANR  (LU,ICHAN,K> 


■'.8 


e  relay  ICHAN  on  scanner  LU  and  read  the  instrument 
ca ted  by  K  . 


.'06 

'07  C 

"18  C       .   Clns 

'  '1 9  C 

'10  C 

Ml  C      .   Date:       February  31,  '1979 

?.i?  C         Detailed  proqran  description  is  available  in  TXCO  log;   ths 

'1.5  C      .   war  lab  les  ar  e  ; 

14  C         LU      ...    LU*  of  desired  scanner  <8  or  IS). 

'IS  C      .   ICHAN   ...    Sc-.nner  channel  (integer). 

.'.ih  C      .   IC      ...    Scanner  cnannel  (ASCII). 

•17  C      .   K       ...    Instrument  code  (  DVM  =  1  /  Counter  =  2  ). 

18  C 

19  C      

•.'0        *,  Clones  scanner  and  reads  DVM,  counter.   " 

21      J  0 1  FORMAT  <A2> 
•;'2     801  FORMAT  ("C"> 
','23  1001  FORMAT  ("T3T3") 

'4  1201  FORMAT  (  "  T  "  ) 
'25  1S01  FORMAT  ( "C" ) 
-;■<, 

i27  URITE  (  8,  80  1) 

•?8  URITE  (IS, 1501) 

'?  IC  =  ICON( ICHAN, 0) 

50  URITE  (LU,  101 )  IC 

■  ',1  GO  TO  (  01  ,02)  K 


01  CALL  TRIGR  (10) 

•34  READ   <)0.  *)  DUM 

'  ?r.  CALL  TRIGR  (10) 

•36  READ   (10,  *)  SCANR 

'37  GO  TO  03 
58 


Figure   C-4.       Listing   of   Calibration   Data  Acquisition  Program    &KALIB 
(Continued   on   next   page.) 
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0237      02  WRITE  (12,1201) 

0240  READ   (12,    «)  SCANR 

0241 

0242  03  WRITE  <  I.U ,  301) 

0243  RETURN 

0244  END 

U245  INTEGER    FUNCTION    ICON(I,N) 

11246  IOI+N 

0247  IM  IC.LT  .  10)    GO    TO    100 

0248  CALL    CODE 

0249  WRITE( ICON,60)IC 

0250  60  F0RHATU2) 
1)251  RETURN 

0252  100         ICON=IC+30060B 

0253  RETURN 

0254  END 


Figure  C-4.   Listing  of  Calibration  Data  Acquisition  Program  &KALIB. 
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APPENDIX    D 
DATA    REDUCTION    PROGRAMS    & REST 8    AND    &REST9 

The  programs  &REST8  and  &REST9  are  in  principal  the  same 
and  follow  the  same  logic.   They  are  used  to  approximate  the 
Mach  number— or  X  — and  the  pitch  angle,  <f> ,  as  functions  of 
the  two  independent  variables  6  and  y  (see  4.5).   The  soft- 
ware used  to  work  out  the  approximations  is  described  ex- 
plicitly in  Ref.  6.   Basis  for  the  approximation  is  the  data 
as  shown  in  Table  V.   This  data  is  stored  as  a  10  by  54  array 
in  a  data  file  ABNEW2  on  cartridge  26.   The  data  is  read 
into  a  10  by  54  array  from  file  ABNEW2  by  both  programs. 
Since  the  approximation  itself  is  carried  out  in  external 
subroutines,  the  necessary  variables  are  contained  in  a 
common  block.   &REST3  thus  contains  3  (BETA) ,  y  (GAMMA) 
and  X  (XVEL)  while  &REST9  contains  3  (BETA) ,  y  (GAMMA)  and 
PHI  (pitch  angle  in  radians) .   As  approximations  of  differ- 
ent order  are  possible  for  both  variables  3  and  y,  the  orders 
of  the  approximations  are  increased  from  one  to  six  in  a 
DO-loop  for  both  variables,  resulting  in  a  total  of  36 
combinations . 

For  all  combinations  the  set  of  coefficients  is  printed 
out  and  also  an  array  (6,9)  for  all  errors  (see  4.5)  re- 
sulting from  this  particular  approximation.   When  the  whole 
DO-loop  is  worked  out,  the  operator  has  to  decide  what  order 
of  approximation  he  wants  to  use  for  the  application  of  the 
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probes.   In  general  lower  order  polynomials  should  be  pre- 
ferred against  higher  ones,  although  the  latter  promise  the 
smaller  overall  error.   The  criterion  for  the  decision  should 
be  the  error  distribution  within  a  range  of  Mach  number  and 
pitch  angle  which  will  be  the  one  of  the  most  common 
application. 

Once  this  decision  has  been  made,  the  operator  inputs 
the  desired  orders  of  polynomials.   The  corresponding  coef- 
ficients are  then  recalculated  and  the  operator  is  asked  for 
a  file  name  under  which  he  wants  to  have  these  coefficients 
stored  in  a  7  by  7  array. 

As  programs  &REST8  and  &REST9  are  in  principal  identi- 
cal, only  one  flow  chart  (Fig.  D-l)  is  given,  and  a  listing 
of  program  &REST9  is  given  in  (Fig.  D-2) . 


Labeled  common  blocks: 
Common  block  identifier 

MATRX 

SUMME 


Variable 

A,  B 

BETA,  GAMMA,  XVEL  (or  PHI) 


Variables    Type 
A(49,49)      Real 


B(49 


Real 


BETA (16, 16)   Real 
COEFF(7,7)    Real 


Description 

System  matrix  used  for  the  3-D  approxi- 
mation of  XVEL  (or  PHI)  as  function  of 
BETA  and  GAMMA  (see  Ref.  6) 

Right  hand  side  vector  of  3-D  approxima- 
tion (see  Ref.  6) 

Beta—pressure  coefficient 

Approximation  coefficients  array 
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Variables  Type 
D(10,54)  Real 
GAMMA         Real 

ICR  Integer 

IDCB(144)  Integer 

IFILE(3)  Integer 

ISECU  Integer 

ISI2E(2)  Integer 

ITYPE  Integer 
NMACH         Real 


NPITCH 


PI 
R(16) 

SUM 


Real 


PHI(16,16)    Real 


Real 
Real 

Real 


XVEL(16,16)   Real 


Description 

Calibration  data  array 

Gamma — pressure  coefficient 

Cartridge  reference  number 

Data  control  block 

Array  containing  file  name 

Security  code 

Array  to  specify  file  dimensions  (1st 
word  for  number  of  records,  2nd  for 
record  length) 

Type  of  data  file 

Number  of  different  Mach  number  settings 
during  the  calibration 

Number  of  different  pitch  angle  settings 
during  the  calibration 

Array  containing  the  actual  pitch  angle 
settings  during  the  calibration 

3.14593 

Array  containing  the  individual  errors 
between  calibration  data  and  calculated 
values 

Calculated  value  of  XVEL  or  PHI  (de- 
pending on  program) 

Array  containing  the  actual  Mach  number 
(X)  settings  during  the  calibration 
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START 


) 


R  E  A  D  ('.:  A  I...  I B  R  A  T  I.  f  J  N  D  A  T  A 
FROM  FILF.  ABNEW2  INTO 
ARRAY  D<  i  D  .54) 


DO  Qi£ 
DO  01.; 


=  i,6'i 


CALCULATE  POLYN.  COEFF 
FOR  ORDERS  MU  &  Nil 
USING  COM AT  4  EEC J 


CALCULATE  \    PR  CNT 
ERRORS  BETWEEN 
CALIBRATION  4 
APPROXIMATED  DATA 


,YES 

READ  ORDER'  OF 
SELECTED  PHI  YN  , 

1 

i 

APPROXIMATE  CALI- 
BRATION DATA  WITH 
DESIRED  POLYM. 

■ 

S  T  0  R  E  A  P  P  R  0  X I M  A  T 1 0  N 
COEFF,  IN  ONE  FILE 

■ 

■ 

f              STOP      J 

Figure  D-l.   Flow  Chart  of  Data  Reduction  Program  &  REST  8/9 
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<,REr,T?  1=00004  IS  DN  CR0U026  USING  00024  bLKS  R  =  0000 


PROGRAM  REST?  (1,99) 


0001 

FTN4, 

0002 

0003 

C 

0004 

c 

ooos 

c 

0006 

c 

0007 

c 

0003 

c 

0009 

c 

0010 

c 

oo  n 

c 

0012 

c 

0013 

c 

0014 

T 

0015 

c 

0016 

r; 

0017 

c 

0013 

c 

0  019 

0  0  CO 

u02i 

0022 

0023 

0024 

0025 

002b 

0027 

0028 

0029 

0030 

0031 

0  032 

101 

0033 

0  0  34 

149 

0035 

601 

0036 

0037 

602 

0038 

603 

0039 

604 

0040 

605 

0041 

606 

0042 

1111 

0043 

0  044 

C 

0045 

C 

0  046 

c 

0047 

c 

0  0  48 

c 

0049 

U050 

0051 

0052 

0053 

O0S4 

0055 

0056 

0057 

oose 

0059 

0060 

OOol 

00o2 

0063 

0064 

3065 

0066 

001 

0067 

0063 

0069 

0070 

0071 

M?5 

002 

0  0"4 

00-5 

c 

Ofl^b 

c 

00™7 

r 

0  0?p 

c 

This  is  progran  REST9  • 

IT  rends  file  ABNEU2  <26)  which  contains  calibration  data  fro*. 

the  new  A-  ana  B-probe  <  0.06L'"  o  .  d  .  .  screen  with  holes). 

It  then  approximates  the  pitchangle  Phi  as  a  function  of 

beta  and  gonna  by  different  order  of  polynoninals 

The  results  of  all  appr o « ina t i ons  are  printed  for  evaluation 

?urposes,  but  only  one  set  of  coefficients  i=  stored, 
he  software  used  for  the  polynoninal  appr o % i na t i on  is 
available  in  the  Tur popr op u i s i on  Laboratory  Binary  Library 
(TPLBL).  See  NPS67-80-0 0 1CR  for  further  reference. 


COHMON  /  MATRX  /  A^B 

COMMON  /  5UMME  /  BETA. GAMMA, PHI 

REAL  A (49 ,49) ,  B<49>  .CCEFF (7.7).D(10,S4> 

INTEGER  IDC8( 144)  ,  IFILE(3> , ISI7E(2) 

REAL  BET A< 16,16)  , GAMMA (  16,  16),  PHI  (16,  16) 

REAL  R(16) 

DATA  PI     /3. 141593/ 

DATA  IFILE  /2HAB,2HNE,2HU2/ 

DATA  IStCU  /0/ 

DATA  ICR    /26/ 

DATA  ITYPE  /l/ 

DATA  ISIZE  /3, 128/ 

DATA  IDCBS  /144/ 

FORMAT  ("  SELECT  SET  OF  COEFFICIENTS  FOR  BEST  RESULTS  !"/"  ENTER  M 
*OPDER  AND  NORDER  NOW  :") 

FORMAT( ""<  <3A2>  > ) 

FORMAT  (///-  COEFFICIENTS  FOR  THE  CALIBRATION  SURFACE  STORED  IN  FI 
*LE  :  "3A2/> 

FORMAT  (  (3X  .  10( 11X.I2) ) ) 

FORMAT  (IX, I2,7<2X,F11 .6) ) 

FORMAT  (///"  ERRORS  AT  EACH  POINT  (DEGREES)"/) 

FORMAT  ( (3X, 16i6X, I2>> > 

FORMAT  (lX,I2.16(iX.F7.3>/3(3X.16(lX,F7.3>/>> 

FORMAT  (  "  STATEMENT  •  "14  "  ERROR  »  "14  "  ENCOUNTERED  ! " ) 

LI  =  LOGLU( I ) 

!   READ  DATA  FILE  ABNEU2  FROM  CARTRIDGE  26  INTO  ARRAY  D(10,54). 

call'  open*  (iocB', ierr) ifile ',  iopTN'  iSECU.iCR',  ibc&si 
JJ  =  1 

IF  (  IERR  ,LT.   0  )  WRITE  (LI, 1111)  JJ,IERR 

CALL  READF  ( IDCB, IERR, D, 1080, LEN, 1) 

JJ  =  2 

IF  (  IERR  .LT.   0  >  WRITE  (LI, 1111)  JJ,IERR 

CALL  CLOSE  ( IDCB , IERR , 0 ) 

JT  =  3 

IF  (  IERR  .LT.   0  )  WRITE  (LI, 1111)  JJ,IERR 

I J 

DO  001   I 

DO  001   J 

IJ 

IF  (J  .EO. 

PHI   (  I  ,  J) 

BETA  ( I , J) 

GAMMAd  ,  J) 


=  0 

=  i<?,i 

=  IJ  +  i 

6)  D(4  ,IJ)  =  D(4 

=  D(4,  tj)  *  PI  / 

=  D(9,IJ) 

=  D(9, IJ) 


IJ)  +  0. 00001 
180  .  0 


NMACH 
NPITCH 


002  CONTINUE 


=  6 


CALCULATE  CALIBRATION  SURFACE  CCF.FF  IC  I  FNTS 


Figure    D-2 


Listing   of    Reduced   Data  Approximation      Program    &REST9 
(Continued   on   next   page.) 
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0079  C  ... 

0080  IJI  ■  0 

0081  DO   Oil  MU  -  1,6,1 

0082  DO   Oil  NU  =  1 ,6,1 

0083  MORDER      =  MtJ 

0084  NORDER       ■  NU 

0085  003  CONTINUE 

0086  DO  004  I    =  1,7,1 

0087  DO  004  J    =  1,7,1 

0088  004  COEFF(I,J>  «=  0.0 

0089  M  ■  MORDER+1 
3090  N  =  NORDER+1 

0091  CALL  COMAT  < A , & , M ,N ,NMACH , NP ITCH) 

0092  NEQUS        =  M*N 

0093  CALL  ELGJ  (NEQUS) 

0094  li  =0 

0095  DO  005    I  =  1,M,1 

0096  DO  005    J  =  i.N.l 

0097  II  =  Ii+1 

0098  005  COEFF(I.J)  -  &<I1> 

0099  IF  (  IJI  .NE.  1  )  GOTO   006 

0100  IFILE<  1)    =  2HMI 

0101  IFILE(2)    =  :HST 

0102  IFILE(3>    =  2HFI 

0103  CALL  CREAT  ( IDCB , IERR , IFILE , ISIZE , ITYPE , ISECU , ICR , IDCBS) 

0104  JJ  »  4 

0105  IF  <  IERR   .GT.   0  )  WRITE  (LI,  1111)  JJ,IERR 

0106  CALL  OPEN   ( IDCB , IERR , IFILE , IOPTN , ISECU , ICR , IDCBS ) 

0107  JJ  =  5 

0108  IF  (  IERR   .LT.   C  )  WRITE  (LI.llll)  JJ.IERR 

0109  CALL  WRITF  ( IDCB, IERR , COEFF , 98 > 

0110  JJ  =  6 

0111  IF  (  IERR   .LT.   0  1  'JRITE  (LI,  1111)  JJ,IERR 

0112  CALL  CLOSE  ( IDCB  ,  IERR  ,  3  ) 

0113  JJ  =  7 

0114  IF  (  IERR   .LT.   0  )  WRITE  (LI, 1111)  JJ,IERR 

0115  WRITE  (6,601)  IFILE 

0116  006  CONTINUE 

0117  URITF  (6,602)  (J,J=1,N,1) 

0118  DO  007  1  =  1,11,1 

0119  007  WRITF  (6,&63)  I  .(  COEFF ( I , J > , J  =  i , N , 1 > 

0120  WRITE  (6,602>  (J,J=1,N,1) 
0121 

0122  C  

0123  C 

0124  C  CALCULATE  ERRORS  FOR  ALL  MACHNUMBER  PITCHANGLE  COMBINATIONS. 

0125  C 

0126  C  

0127 

0128  URITE  (6,604) 

0129  WRITE  (6,605)  ( J , J=i , NP ITCH , 1 > 

0130  DO  010   I   =  i,NMACH,l 

0131  DO  009   J   =  1,NPITCH,1 

0132  SUM  =  0. 

0133  DO  008   II  =  1 ,M,1 

0134  .00  008   Jl  =  l.N.l 

0135  008  SUM=SUM+(COEFF(Il ,J1)*GAMMA(I  ,J)**( Jl-1) )*BETA  ( I , J ) »» ( 1 1-1  ) 

0136  009  R(J)         =  (PHI(I.J)  -  SUM)  *  180.0  /  PI 

0137  010  WRITE  (6,606)  I  , ( R ( J ) , J  =  l  , NPITCH  ,  1  ) 

0138  WRITE  (6, 60S)  ( J , J -1 , NP ITCH, 1 ) 
0139 

0140  IF  (IJI  .EQ.  1  )  GOTO  012 
0141 

0142  011  CONTINUE 

0143  W9ITE  (LI, 101) 

0144  READ   (LI,   *)  MORDER  .NORDER 

0145  IJI  =1 

0146  GOTO  003 

0147  012  STOP  7777 

0148  END 


Figure  D-2.   Listing  of  Reduced  Data  Approximation  Program  &REST9 
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APPENDIX  E 
DATA  EVALUATION  PROGRAM  &EVALU 

As  described  in  5.1,  program  &EVALU  simulates  a  case  in 
which  calibration  data  is  treated  as  actual  test  data--as 
far  as  possible.   From  this  data  flow  quantities  of  Mach 
number  and  pitch  angle  are  derived  using  the  whole  data  re- 
duction method,  and  compared  with  the  known  actual  values. 

The  program  is  set  up  to  perform  this  comparison  for  all 
given  Mach  number/pitch  angle  combinations.   However,  since 
the  process  is  rather  extensive  and  time-consuming,  the  pro- 
cedure is  actually  only  worked  out  for  a  limited  range  of 
calibration  settings. 

First  of  all  the  program  reads  the  sets  of  coefficients 
for  the  Mach  number  and  pitch  angle  approximations  (as  gen- 
erated in  &REST8  and  &REST9)  into  two  arrays.   In  a  loop 
corresponding  calibration  data  of  the  "A"  and  "B"  probes  for 
one  Mach  number/pitch  angle  combination  is  read  at  a  time. 
This  data  is  read  into  two  data  arrays  (ADATA ( 2 , 320)  and 
BDATA(2 , 320) ) .   For  nine  defined  yaw  angles  (±65  ,  ±45  , 
±30°,  ±15°,  0°)  the  program  searches  for  given  yaw  angles 
which  are  closest  to  the  defined  ones  and  averages  four  yaw 
angles  bigger  and  four  smaller  than  the  one  found  as  well 
as  it  averages  the  corresponding  pressure  values.   This  re- 
sults in  nine  single  pairs  of  PA  values  and  yaw  angles.   The 
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B  probe  "data  acquisition"  is  handled  differently.  For  a 
range  of  yaw  angle  smaller  than  the  whole  calibration  range 
the  output  of  the  B  probe  p  is  approximated  with  a  sixth 
order  polynomial  as  a  function  of  yaw  angle.  For  nine  spe- 
cific values  of  yaw  (±30°,  ±22. 5°,  ±15°,  ±7.5°,  0°)  corres- 
ponding pressure  values  pR  are  calculated  using  the  derived 
polynomial. 

These  data  arrays  PA (9) /YAWA (9 )  and  PB (9 ) /YAWB (9)  are 
equivalent  to  the  data  acquired  in  a  test.   They  are  again 
approximated  and  the  pressure  values  PAMAX ,  PSA  and  PBMAX 
are  calculated.   The  data  reduction  procedure  as  outlined  in 
4.5  is  applied  to  these  values  and  the  Mach  number  (or  X) 
and  pitch  angle  are  derived.   Since  the  yaw  angle  is  always 
adjusted  to  zero  when  aligned  with  the  flow  in  the  freejet, 
the  yaw  angle  should  always  turn  out  to  be  zero.   However, 
the  program  offers  the  possibility  to  artificially  super- 
impose a  different  yaw  angle  in  that  the  given  relationships 
pA  =  P,(a)  and  pR  =P  (a)  are  shifted  to  p,  =P  (a  +  Aa)  and 
p   =PB(a+Aa),  where  Aa  is  the  "artificial"  yaw  angle.   The 
quality  of  the  flow  quantity  calculations  is  expressed  in 
errors  of  Mach  number,  pitch  angle  and  yaw  angle  as  described 
in  5.1.   The  necessary  error  values  are  printed  out  and  the 
loop  is  continued.   Figure  E-l  gives  a  flow  chart  of  the 
program  while  Fig.  E-2  contains  a  listing. 
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Labeled  Common  Block 


Common  block  identifier: 
DTA2 


Variable 
XI,  Y 


Variable 
AAO 
ABO 

AD ATA (2, 3  20) 
AFILE  (3) 

ASL 

ASR 

BDATA(2,3  20) 
BFILE  (3) 

COEF(7) 

COEUX(7,7) 

COEUP (7,7) 

CPAMAX 
CPBMAX 
DP 

DPX 
DX 


Type  Description 

Real  Flow  yaw  angle  derived  from  A  probe 

Real  Flow  yaw  angle  derived  from  B  probe 

Real  Array  to  contain  the  A  probe  data 

Integer    Array  to  contain  the  file  name  for 
A  probe  data 

Real      Left  hand  side  yaw  angle  of  A  probe 
output 

Real      Right  hand  side  yaw  angle  of  A  probe 
output 

Real     Array  to  contain  the  3  probe  data 

Integer    Array  to  contain  the  file  name  for 
B  probe  data 

Real     Array  to  contain  coefficients  from 
2-D  approximations 

Real     Array  containing  the  coefficients 
of  the  3-D  approximation  for  the 
velocity 

Real      Array  containing  the  coefficients 
of  the  3-D  approximation  for  the 
pitch  angle 

Real     Maximum  pressure  coefficient  A  probe 

Real     Maximum  pressure  coefficient  B  probe 

Real      Pressure  difference  for  two  pressure 
values  corresponding  to  two  yaw 
angles  which  are  separated  by  DX 

Real      First  derivative  of  the  function 


Real 


p  (a)    -  p  (a  -  Act) 

Given  spread  in  yaw  angle  between 
PSAL  and  PSAR 
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Variable 


ERPHI 


ERXVEL 


ERYAW 


Type 
Real 

Real 

Real 


GAMMA 

Real 

ICR 

Integer 

IDCB(144) 

Integer 

IFILE(3) 

Integer 

IL 

Integer 

ISECU 

Integer 

ISIZE(2) 

Integer 

ITYPE 

Integer 

ICLR(3) 

Integer 

NOLF 

Integer 

NOCR 

Integer 

PA  (9) 

Real 

PAMAX 

Real 

PB(9) 

Real 

PBMAX 

Real 

PHI 

Real 

PHIME 

Real 

PSA 

Real 

PSAL 

Real 

Description 

Error  between  measured  and  calculated 
pitch  angle 

Error  between  measured  and  calculated 
Mach  number  (Xvel  rsp.) 

Error  between  measured  and  calculated 
yaw  angle 

Pressure  coefficient 

Cartridge  reference  number 

Data  control  block 

Array  containing  file  name 

Total  number  of  words  read  from 
data  file  (two  words  for  one  value) 

Security  code 

Array  to  specify  file  dimensions 

Type  of  data  file 

Command  to  clear  line  above  cursor 

No  line  feed  command 

No  carriage  return  command 

Array  for  A  probe  pressure  values 

Maximum  pressure  of  A  probe 

Array  for  B  probe  pressure  values 

Maximum  pressure  of  B  probe 

Pit^h  angle  (calculated) 

Pitch  angle  (measured) 

Static  pressure  equivalent  of  A  probe 

Pressure  reading  of  A  probe  for  a 
yaw  angle  63   to  the  left  of  the  flow 
aligned  yaw  angle 
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Variable 
PSAR 

PSTAT 

PTOTAL 

P1-P8 


XVEL 

XVELME 
XO 

XK256: 

Y(256) 
YAWA ( 9 : 
YAWB ( 9 1 
YAWOFF 

Y1-Y8 


Type  Description 

Real  Pressure  reading  of  A  probe  for  a 
yaw  angle  6  3°  to  the  right  of  the 
flow  aligned  yaw  angle 

Real      Static  pressure 

Real     Total  pressure 

Real     A  probe  pressure  values  in  the 

vicinity  of  a  given  yaw  angle  giving 
the  basis  to  find  an  average  pres- 
sure value  for  the  corresponding 
yaw  angle 

Real     Mach  number  equivalent  dimensionless 
speed 

Real     Measured  XVEL 

Real      Starting  value  for  the  iteration 
to  find  PSAL  and  PSAR 

Real  Data  array  for  2-D  approximations 

Real  Data  array  for  2-D  approximations 

Real  Array  containing  A  probe  yaw  angles 

Real  Array  containing  B  probe  yaw  angles 

Real      Superimposed  yaw  angle  offset  to 

simulate  yaw  angles  different  from 
0°. 

Real  A  probe  yaw  angles  in  the  vicinity 
of  a  given  yaw  angle  equivalent  to 
P1-P8. 
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c 


START 


3 


R E AD  A P P R 0 X I rt A T I 0 N  CO E F F I C I E N I 
FILES  MISTXV  AND  MISTFI  INTO 
ARRAYS  COFKX  AND  COEKP . 


READ  SUPERIMPOSED 
YAWANGLE  OFFSET , 


rg 


READ  CALIRATION  DATA  FILES  FOR 

A-  AND  B-PROBE  FOR  ONE  MACHNUMBER/ 

PITCHANGLE  CGMBINA TTON . 


APPLY  YAWANGLE  OFFSET  AND 
PROBE  REFERENCE  PRESSURE. 


CALCULATE  9    PRESSURE  VALUE!: 
FOR  GIVEN  YAW  POSITIONS 
(A-  AND  B-PROBE) 


CALCULATE  PRESSURE  COEF- 
FICIENTS *>t  ,CPAMAX  AND  CPBMAX 


CALCULATE  FLOW  QUANTITIES 
(MACH,  PTTCH-  AND  YAWANGLE) 


*n 


COMPARE  CALCULATED  VALUES  WITH 
MEASURED  VALUES .CALCULATE 

DEVIATIONS  AND  PRINT  THEM, 


C 


YES 


STOP 


} 


Figure  E-l.  Flow  Chart  of  Data  Evaluation  Program  &EVALU. 
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'.EVALU    T=00004    IS    ON    CR00026    USING    0O0S1    BLKS    8=0000 

0001  FTN4,L 

')002  PROGRAM  EUALU  (3,99) 

0003  c    ; 

0004  C     .  '   '         

0005  C     .    THIS  IS  PROGRAM  EVALU  (at«>  ! 
0  0  06  C     . 

S007  C     .    IT  CAN  TREAT  THE  RAU  DATA  FROM  THE  A-  AND  B-PROBE  CALI- 

0008  C     .    BRATION  LIKE  ACTUAL  TEST  DATA  ! 

T009  C 

0  010  c 

U  0 1  i  c      

U012  COMMON  /  DTA2  /  Xl.Y 

0013  iNTEGfR  IDCB(  l-»4>  2  !FILE(3)  ,  !SIZE(2)  ,N0LF,N0CR(2>  ,  ICLR<3) 

0014  INTEGER  AF  1LE < 3 )  .  BF  ILE ( 3 > 

"01S  REAL  ADATA(2,320>  ,  BDATA(2  .320  )  .KH256)  ,  Y(2S6>  ,C0EF(7> 

0016  REAL  C0EKX(7,7> ,C0EKP<7,7} 

0017  REAL  PA  (?)  ,PB  (?)      ,YAUA(9>   ,YAUP(?) 
001B  DATA  ISIZE  (1)   /   10/ 

001?  DATA  ISIZE  (2)   /  128/ 

^020  DATA  I7YPE       /    1/ 

0021  DATA  IDCBS  /  144/ 

0022  DATA  IL  /12B0/ 

0023  DATA  NOLF  /006S37B/ 

0024  DATA  NOCR  /0 00 033B , 040433B/ 

3025  DATA  ICLR        /01S524B  ,  0  lSSiSB  ,  006537B/ 

0026  148  FORMAT  <  "  DO  YOU  WANT  AN  OUTPUT  OF  THE  CALIBRATION  COEFFICIENTS?" 

0027  */"  ENTER  fES  IF  SO  OR  ANYTHING  ELSE  IF  NOT'") 
u028  14?  FORMAT  (  ( 3A2  )  ) 

002?  ISO  FORMAT  ("  ENTER  FILE  (        )  FOR  X  APPROXIMATION'"/ 

0030  *"  DON'T  FORGET  SECURITY  CODE  f.    CARTRIDGE  REFERENCE  NUMBER'"/ 

J031  *"        I       "A2) 

3S32  151  FORMAT  ( 3A2 , 1 X , 12 , 1 X  ,  12 ) 

GC33  152  FORMAT  (//"  THE  DATA  READ  FROM  FILE  "3A2"  ARE'/) 

0034  153  FORMAT  ("  I  7~"7   "T3  .  ali2> 

0035  154  FORMAT  ("  "13 , 7( IX , F{ 1 . 6  )  ) 

0036  155  FORMAT  (*  ENTER  FILE  (SIFP   )  FOR  PHI  APPROXIMATION'"/ 

D037  «"  DON'T  FORGET  SECURITY  CODE  &  CARTRIDGE  REFERENCE  NUMBER1"/ 

'1038  *"SIFP   :    :   "A2> 

•  1039  156  FORMAT  ("  ENTER  THE  OFFSET  OF  THE  YAWANCLE   IN  DECREES  '") 

0040  1S7  FORMAT("  RESULTS  FROM  THE  A-B  SYSTEM :  "// 1 UX "CALCULAT ION :" ISX "MEASU 

."041  *REMENT  :  "  12X  "ERRORS  "/6X  "XVEL  "5X  "P  I  TCH"7X  "YAW  "6X  "XVCL  "SX  "P  ITCH "t>X  "XV 

0  0  42  *EL "SX"PITCH"7X"YAU"3X"YAU  FROM  A  PROBE"//) 

.043  158  FORMAT  (1X(3A2)> 

0044  159  FORMAT  (/"  RAU   DATA  :"/"   *   A  -  KULITE   B  -  KULI TE "7X " Y AU  A 

0045  *"7X"YAW  B"> 

0046  160  FORMAT  <  13 , 4< 2X , F 1 0 . 5  )  ) 

"047  V61  FORMAT t"  A-PROBF.  APPROXIMATION  RESULTS  :     YAW  =  "3  ( SX  ,F?  .  2  )  /  16X"  PR 

9048  *ESSURE  (INCH  H20)  =  "3 ( 3X  ,  F  1  1  . 6 i /29X  "  CPAMAX  =  "F8.4/) 

j049  162  FORMAT*/"  B-PROBE  APPROXIMATION  RESULTS  :  YAW0  =  "FS.l"  PRESSURE 

■  -350  *(INCH  H20)  =uF6.2//> 

■JQSl  163  FORMAT  ( IX ,F9 . 4 ,2 < 3X  ,F7 . 2 >  , 1 X , F? . 4 , 3X , F7 . 2 , IX ,F9 . 4 , 3 < 3X , F7 . 2) > 

0  052  601  FORMAT  <"  I   /J  "112, 6116) 

3053  602  FORMAT  ("  " I  3 ,7 ( IX , F 15 . 6 ) ) 

0054  603  FORMAT  ("  ARTIFICIAL  YAU  ANGLE  OFFSET  IS  :  "13"   DEGREES  "//) 

0055  604  FORMAT  (/) 

3056  1111    FORMAT     ("    STATEMENT    *    =    "13"    ERROR    *    =     "13"    ENCOUNTERED'") 

10S7  LI    =    LOGL'J    (ISE3SN) 

0058  LO    =    b 

J  059  WRITE     (LI, 148) 

060  READ       (LI, 149)     IPRIN1 

0(161  C                

0  0  62  C                . 

MJ63  C         READ  FILE         FROM  DISC  INTO  ARRAY  C0EKX(7,7). 

0064  C 

^065  C       

"J066  WRITE     (LI, 150)     NOLF 

10&7  READ       (LI ,1S1)IFILE .ISECU, ICR 

"063  WRITE  (LI, 149)  (ICLR, II  =  1,3) 

069  CALL  OPEN   ( IDCB , IERR , IFILE , IOPTN , ISECU  ,  ICR , IDCBS ) 

3  070  J J  =  1 

0071  IF  (  IERR   .LT.   0  )  WRITE  (LI,1111>  JJ.IERR 

0  072  CALL  READF  ( IDCB  ,  IERR , CGEKX , ?8 , LEN , 1 ) 

0073  J J  =  2 

;074  IF  (  IERR   .LT.   0  )  WRITE  (LI, 1111)  JJ.IERR 

3075  CALL  CLOSE  ( IDCB  ,  IERR  ,  0  ) 

0076  JJ    =    3 

0077  IF     (     IERR        .LT.        C     )     WRITE     (LI, 1111)     JJ.IERR 
J078  IF     (IPRIN1     .NE.     2HYF )     GOTO    Oil. 


Figure  E-2.   Listing  of  Calibration  Data  Evaluation  Program  &EVALU 
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007^   C       

0080  C 

0081  C  .   OUTPUT  INPUT  DATA. 
0062  C 

0083  C .  , 

0084  WRITE  (LI,  1S2)  IFILE 

0085  IF  <  LO   .NE.   (I  )  WRITE  (LO,  152)  IFILE 

0096  WRITE  (LI,  153)  (11.11=1,7) 

0097  IF  (  LO   ,NE.   0  )  WRITE  ( LO  ,  601)  (11,11=1,7) 

0088  CO  00S  11=1,7,1 

0089  IF  (  LO   .NE.   0  )  WRITE  ( LO ,  602)  1 1 , ( COEKXC 1 1  ,  Jl  )  ,  Jl  =  l  ,7 ,  1  ) 

0090  005  WRITE  (LI.  154)  I  1 , ( COEKX < 1 1 , Ji ) , J  1  =  1 , 7 , 1 ) 

0091  C  

0092  C 

0093  C  .   READ  FILE         FROM  DISC  INTO  ARRAY  C0EKP(7,7). 

0094  C 

0095  C  

0096  010  CONTINUE 

0097  WRITE  (LI. 155)  NOLF 

0098  READ   (LI, 151)  IFILE , ISECU . ICR 

0099  WRITE  (LI, 149)  (ICLR.Ii  =  1,3) 

0100  CALL  OPEN   ( IDCB , IERR , IFILE , IOPTN , ISECU , ICR , IDCBS ) 

0101  J  J  =  4 

0102  IF  (  IERR   ,LT.   0  >  WRITE  (LI, 1111)  JJ.IERR 

0103  CALL  READF  < IDCB , IERR , COEKP , 98 , LEN , 1 > 

0104  JJ  =  5 

0105  IF  (  IERR   .LT.   0  )  WRITE  (LI,  1111)  JJ.IERR 

0106  CALL  CLOSE  ( IDCB, IERR , 8 J 

0107  JJ  =  6 

0108  IF  (  IERR   .LT.   0  )  WRITE  (LI, 1111)  JJ,IERR 

0109  IF  (IPRINi  .NE.  2HYE)  GOTO  020 

0110  C  

0111  C 

0112  C  OUTPUT  INPUT  DATA. 

0113  C 

0114  C  

0115  WRITE  (LI,  152)  IFILE 

0116  IF  <  LO   .NE.   0  )  WRITE  (LO,  1S2)  IFILE 

0117  WRITE  (LI,  153)  (11,11=1,7) 

0118  IF  (  LO   .NE.   0  )  WRITE  (LO,  601)  (11,11=1,7) 

0119  DO  015  11=1,7,1 

0120  IF  (  LO   .NE.   0  )  WRITE  (LO,  602)  1 1 , (COEKP ( 1 1 , Jl ) , Jl  =  l , 7 , 1 ) 

0121  015  WRITE  (LI,  154)  1 1 ,  ( COEKP ( 1 1 , Jl ) , Jl  =  l , 7 , 1 ) 

0122  020  CONTINUE 

0123  C     

0124  C 

0125  C      .  THE  DATA  ACQUISITION  SHALL  BE  PERFORMED  NOW  ! 

0126  C     .  . 

0127  C 

0128  C     

0129  WRITE  (LI, 156) 

0130  READ   (1,    *)  YAUOFF 
dl31  WRITE  (Ld,603>  YAWOFF 

0132  AFILE(l)  =  2HA2 

0133  AFILE(2)  =  2HKP 

0134  BFILE(l)  =  2HB2 

0135  IJI  =  1 

0136  15  =1 

0137  WRITE  (L0.157) 

0138  GOTO  135 

0139  025  CONTINUE 

0140  WRITE  (LI, 158)  AFILE 

0141  WRITE  (LI, 158)  BFILE 

0142  IJI  =  IJI  +  1 

0143  15  =15+1 

0144  IF  ( AFILE (1 ) .EfJ.2HA2.0R .AFILE(2) .EQ.2HKN.0R .AFILE (3) . EO . 2H25 . OR , 

0145  *AFILE(3) .EQ.2H20)  GOTO  135 

0146  CALL  OPEN   (IDCB, IERR , AFILE, IOPTN, ISECU, ICR ,IDCBS) 

0147  JJ  ■  7 

0148  IF  (  IERR  .LT.  0  )  WRITE  (LI, 1111)  JJ.IERR 

0149  CALL  READF  ( IDCB , IERR , ADATA , tL , LEN, 1 > 

0150  JJ  =  3 

0151  IF  (  IERR  .LT.  0  )  WRITE  (LI, 1111)  JJ , IERR 

0152  CALL  CLOSE  ( IDCB , IERR , 0 ) 

0153  JJ  »  9 

0154  IF  (  IERR  .LT.  0  )  WRITE  (LI, 1111)  JJ,IERR 
0155 

0156  CALL  OPEN   ( IDCB , IERR , BFILE , IOPTN , ISECU , ICR , IDCBS) 

0157  JJ  =  10 

015B  IF  (  IERR  .LT.  0  )  WRITE  (LI, 1111)  JJ,IERR 
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0159 

CALL  .-'FADF  i  IDCB,Ik.RS»,  bDAIA.it.  i_£N  ,  1  ) 

0\t>0 

J  J  =  It 

Olol 

IF  <  IERR  ,LT.  0  )  URITE  (Ll.llll)  JJ.IER 

Clo2 

CALL  CLOSE  (  IDCB  .  IERR ,0) 

0\o3 

JJ  =  12 

0164 

IF  (  IERR  .LT.  0  )  URITE  (LI, 1111)  JJ.IER 

0165 

0166 

DO  030  I  =  1,300,1 

1)167 

ADATA  (1,1)  =  ADATA  (1,1)  +  YAUOFF 

ni63 

PDATA  M,I)  =  &DATA  (1,1)  +  YAUOFF 

0169 

AEATA  (2,1)  =  ADAT«  (2,1)  +  ADATA  (1,319) 

0170 

030 

&DATA  (2,1)  =  BDATA  (2,1)  !■  &DATA  (1,319) 

0171 

11  =  0 

0172 

DO  055  J  =  -60,60, 15 

0173 

JI  =  J 

01^4 

I.I  =  J  /  2 

0\7S 

IF  (  J  .EO.  -60  )  JI  =  -65 

017b 

IF  (  J  .EG.   60  )  JI  =   65 

0177 

II  =  II  +  1 

0178 

DO  035  I  =  1,150,1 

IF  (ADATAd  1)  .LT.  JI  )  GOTO  035 

0179 

0180 

Yl  =  ADATA(l,I-2) 

oiai 

PI  =  ADATA(2,I-2) 

0182 

Y2  =  ADATA( 1,1-1) 

01t?3 

P?  =  ADATA(2, 1-1 ) 

0184 

Y3  =  ADATA( 1,1   ) 

01  85 

P3  =  ADATA(2,I   1 

0  186 

Y4  =  ADATA( 1,1+1) 

0137 

P4  =  ADATA(2, 1  +  1 ) 

0188 

GOTO  040 

0139 

0  35 

CONTINUE 

0190 

040 

DO  0  45  I  =  151,300,1 

IF  <  ADATA(1,I>   .GT.  JI  )  GOTO  045 

0171 

0192 

Y5  =  ADATAl 1 , 1-2) 

0193 

PS  =  AI)ATA(2,I-2) 

0194 

Y6  =  A!)ATA(  1,1-1) 

0195 

P6  =  ADATA(2,I-1) 

0196 

Y7  =  ADATA' 1,1   ) 

0197 

P7  =  ADATA(2,I   ) 

0198 

Y8  =  ADATAt 1,1+1) 

0199 

PS    =  ADATA(2,I+1) 

0200 

GOTO  050 

0201 

0  45 

CONTINUE 

0202 

OSO 

XI ( I )  =  Yl 

0203 

XI  (2)  =  Y2 

0204 

X\.(3)     =    Y3 

020S 

XI (4)  =  Y4 

0206 

XI (5)  =  YS 

0207 

XI (6)  =  Y6 

0209 

XI (7)  =  Y7 

0209 

XI (3)  =  Y8 

0210 

Y  (  1  )  =  PI 

0211 

Y  (2)  =  P2 

0212 

Y  (3)  =  P3 

0213 

Y  (4)  =  P4 

0214 

Y  (5)  =  P5 

0215 

Y  (6)  =  P6 

0216 

Y  <7)  =  P7 

0217 

Y  <  8)  =  P8 

0213 

YAUflUI)  =  ( Y1  +  Y2  +  Y3  +  Y4  +  Y5+ Y^,+Y7  +  YR)  /  8 

021V 

055 

PA   (II)  *  <P1  *P?+P3+P4  +  PS  +  Prj  +  P7  +  P8>  /  3 

0220 

DO   060  I  =  26,125,1 

0221 

J  =    I  -  25 

0222 

Xl(  J)  =  BDATAd  ,  I  ) 

0223 

060 

Y  (.1)  =  &DATA(2,I> 
DO  065  I  =  176,275,1 

0224 

022S 

J  =     I  -  75 

0226 

XKJ)  =  BPATA(1,I) 

0227 

065 

Y  <7)  =  BDATA(2,I) 

0228 

NPNTS  =  200 

0229 

CALL  MAT2  ( NPNTS , 7 ,COEF ,- 1 ) 

0230 

0231 

DO  070  I  =  1.9,1 

m$ 

070 

0234 

0235 

0236 

0237 

WRITE  (LI, 159) 

0238 

DO  075  I  =  1,9,1 

Figure  E-2.   Listing  of  Calibration  Data  Evaluation  Program  &EVALU 
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.•■23'?  J?c     4RITE     iLl.isO)     l.f'Aa'.r'Hil  ■  ,  MWAi  i  >  ,  >  AUHt  I  ) 

0240 

0241  PBARO       =    <ADATA(2 .319)    *    BI>ATA  (  2  ,  319  )  )     <    2 

0242  PSTAT       =       PBARO    *     13    ^85 

0243  PTOTAL     -     ( ( ADATA( 2 , 318 >     +    BDAT  A  (  2  ,  318  )  )      /    2)     ♦     (PBARO    *     ^.'TOS) 

0244  XUELMt    =    SORT     (     l     -     ( PTOTAL/ PSTAT        )  ** ( -0 . 2857 )     ) 

0245  PHIHE       =    ADATA(1,320> 

0246  DO    080     I    =    1,9,1 

0247  XKI)  =    YAUAvI) 

024rt  080    Y     (I)  =       PA    ll>     ♦     (    PBARO    *     13.585     ) 

0249  CALL    MAT2    ( 9 , 5 , COEF , -4 > 

0250  C  

0251  C 

0252  C  .   FIND  MAX.  OUTPUT  OF  A  PROBE. 

0253  C 

0254  C  

0255  DX      =   126.0 

0256  X0      =  -70 . 0 

0257  085  DP      =  ( FNP < 4  .COEF  ,X0 )-FNP ( 4  .  COEF  ,  ( X0 +DX  )  ) ) 

0258  IF  (ABS(DP)  .LT.  O.oftOl)  GOTO  690 

0259  DPX     =-2.*C0EF(3)*DX-6. *COEF ( 4 > *X0*DX-3 . *COEF< 4)*DX*DX- 

026  0        *         12.«COEF(5)*X0*X0*DX-12.*COEF(S)*X0*DX*DX-4. *COEF ( S > *DX**3 

0261  X0      =  X0  -  DP  /  DPX 

0262  GOTO  085 

0263  090  ASL     =  X0 

0264  ASR     =  X0  +  DX 

0265  AAO     =  XO  +  DX  /  2.0 

0266  PAMAX   =  FNP(4,COEF,AA0) 

0267  PSAL    =  FNP (4 .COEF, ASL) 

0268  PSAR    =  FNP (4, COEF  ASR) 

0269  PSA     =  (PSAL  ♦  PSAR)  /  2.0 

0270  PTOTAL  =  PAMAX 

0271  BETA    =  (PAMAX  -  PSA)  /  PAMAX 

0272  CPAMAX  =  (PAMAX  -  PSA)  /  (PTOTAL  -  PSA) 

0273  IF  (  IPRINT  ,NE.  2HYE  )  GOTO  095 

0274  WRITE  (LI, 161)  ASL, AAO , ASR , PSAL , PAMAX , PSAR , CPAMAX 

0275  IF  (1.0  .NE.  0  )  WRITE  (LO.lbl)  ASL , AAd , ASR  ,  PSAL , PAMAX , PSAR , CPAMAX 

0276  095  CONTINUE 

0277  C  

C27B   C 

0279  C  .   APPROXIMATE  B-PROBE  PRESSURES. 

0280  C 

0281  C  

0282  DO  100   I  =•  1 ,9. 1 

0283  XKI)      =»  YAWB(I) 

0294     100  Y(I)        =  PB(I>  +  (PBARO  *  13.585) 

0285  CALL  MAT2  ( 9, S , COEF , -4 ) 

0286  X0  <  1,90 

0287  110  DPX        =■  FND<4,COEF,X0) 

028Q  IF  <  ABS(DPX)  .LT.  0.00001  >  GOTO  115 

0289  X0       =  X0  -  DPX  ,'(2*C0EF<3)  +  6*COEF(4)*X0  +  1 2*C0EF  ( 5  )  *X0»X0  ) 

PC90  GOTO  110 

0291  115  ABO         =»  X0 

0292  PBMAX       =  FNP(4,C0EF, ABO  ) 

0293  IF  (  IPRINT  .NE.  2HYE  )  GOTO  120 

0294  WRITE  (LI, 162)  ABO, PBMAX 

0295  IF  (LO  .NE.  0  )  WRITE  <L0,162)  ABO, PBMAX 

0296  120  CONTINUE 

0297  CPBMAX      =  (  PBMAX  -  PSA  )  /  (  PTOTAL  -  PSA  ) 

0298  GAMMA        »  (CPAMAX  -CPBMAX)  /  CPAMAX 

0299  XVEL        =0.0 

0300  PHI  =0.0 

0301  DO  125   II  -  1,7,1 

0302  DO  125   12  =  1,7,1 

0303  XVEL         =  XVEL  +  (COEK X < 1 1  ,  12)  *  GAMMAt* ( 12-1 ) ) *BETA«* ( 1 1 -1 ) 

0304  125  PHI  =  PHI   +  (COEKXtll  ,  12)  »  GAMMA«*(  12-1  )  )  *DETA»*  (  1 1- 1  ) 

0305  PHI  ■  PHI  *  180.  /  3.14159 

0306  ERXVEL      ■  <(  XVELME  -  XVEL  )  /  XVEL  )  »  100. 

0307  ERPHI       =  PHIME      -  PHI 

0308  ERYAU       =  YAUOFF  '-  ABO 

0.509  WRITE  (LI, 163)  XVEL .PHI , ABO , XVFL ME , PHIME , ERXVEL, ERPHI .ERYAU , AAO 

0310  IF<LO.NE. fl)WRITE  (1.0,163)  XVEL , PHI , ABO , XVELME , PHIME , ERXVEL , ERPHI 

0311  *, ERYAU, AAO 

0312  135  CONTINUE 

0313  IF  (15  ,EQ.  SS  )  GOTO  500 
0314 

0315  IF  (15  .EQ.  10  )  GOTO  210 

0316  IF  (IS  .EQ.  19  )  GOTO  220 

0317  IF  (15  .EQ.  28  )  GOTO  230 

0318  IF  (15  .EQ.  37  )  GOTO  240 
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111? 

0320 

£5t&x!61.eq-  4fa  ■ 

GOTO  250 

0321 

210 

AFIt.E(l)  =  2HA3 

0322 

BFILE(l)  =  2HB3 

0323 

IJI       =  IS  - 

WRITE  (L0,604> 

9 

0324 

032S 

GOTO  260 

3326 

220 

AFILEi 1)  ■  2HA4 

0327 

BFILE(l)  -  2HB4 

0328 

IJI       =  15  - 

ia 

0  329 

UP  ITE  (L0,604) 

0330 

GOTO  260 

0331 

230 

AFILE(l)  =  2HA5 

0332 

BFILE(l)  =  2HBS 

0333 

IJI       =  IS  - 

27 

0334 

WRITE  (LD.604) 

033S 

GOTO  260 

0336 

240 

A? ILEt 1 >  =  2HA6 

0  337 

BFILE(i)  ■  2HB6 

0338 

IJI       =  IS  - 

36 

0339 

URITE  (LO.604) 

0340 

GOTO  260 

0341 

250 

AFILEd  )  -  2HA7 

,  0342 

BFILE<1>  =  2HB7 

0343 

IJI       =  IS  - 

45 

0344 

WRITE  (L0.604) 

0345 

GOTO  260 

0346 

260 

IP  (  IJI  .EQ.  1 
IF  (  IJI  .EQ.  2 

)  GOTO  300 

0347 

)  GOTO  310 

0348 

IF  (  IJI  .EQ.  3 
IF  (  IJI  .EO.  4 

>  GOTO  32  0 

3349 

)  GOTO  330 

0350 

IF  (  IJI  .EO.  5 

>  GOTO  340 

0  351 

IF  (  IJI  .EO.  6 

)  GOTO  350 

035.2 

IF  t  IJI  .EO.  7 

)  GOTO  360 

0353 

IF  <  IJI  .EO.  8 

)  GOTO  370 

u3S4 

IF  (  IJI  .EQ.  9 
AFILE(3>  =  2H2S 

)  GOTO  380 

0355 

300 

0356 

AFILEC?)  =  2HKT 

0357 

GOTO  400 

3358 

310 

AFILE(3)  =  2H20 

3359 

AFILEC2)  «  2HKP 

0360 

GOTO  400 

0  361 

320 

AFILE(3)  =  2H15 

G362 

AFILE<2>  ■  2HKP 

1363 

GOTO  400 

0364 

330 

AFILE(3)  =  2H10 

3365 

AFILE<2>  =  2HKP 

0366 

GOTO  400 

0367 

340 

AFILE(3)  =  2H05 

0368 

AFILE(2)  =  2HKP 

0369 

GOTO  400 

^370 

350 

AFILE<3>  =  2H00 

037i 

AFILE(2>  =  2HKP 

0372 

GOTO  400 

0373 

360 

AFILE(3)  =  2H05 

0374 

AFILE<2)  =  2HKN 

0375 

GOTO  400 

0376 

370 

AFILE(3)  =  2H10 

0377 

AFILE<2>  =  2HKN 

3  378 

GOTO  400 

0379 

380 

AFILFC3)  =  2H15 

0  38  0 

AFILEC2)  =  2HKN 

0381 

GOTO  40  0 

3  362 

400 

BFU.EC2)  =  AFILEC) 

0383 

HFIlE(3)  =  AFILE(3) 

0  384 

GOTO  025 

3385 

500 

STOP  77^7 

u38e> 

END 

3  337 

REAL  FUNCTION  FNP < NOR  PER , COEFF . ZX) 

"388 

REAL  C0EFF(7^ 

,389 

Al  =  COErF(NORDER+l 1 

.too 

IF  (  NORDER  . EQ. 

0  )  GOTO  0  2 

C391 

DO  01  11  =  l,NORDER,l 

0T92 

o?«3 

01 

I  =  NORDER  +1-11 
Al=  COEFF( I )*2X*A1 

0.394 

0  2 

FNP  =  Al 

D39S 

Pt TURN 

0396 

END 

J3<?7 

REAL  FUNCTION  FND'NORPER  COEFF, ZX) 

3398  ' 

SEAL  CITE-   (7i 

0399 

REAL  C0EFFD(6) 

3400 

DO  01  1=1, NORDER 

:,  J 

0401 

01 

COEFFD( I )  =  COEF 

FCI  +  l )*I 

0402 

Al    =  COFFFD(NORDER) 

0403 

NORDR=  NORDER  - 

1 

0404 

IFl  NORDR   .EQ. 

0  )  GOTO  03 

040S 

DO  02  11  =  1  , NORDR  ,1 

0406 

I  =  (NORDR  ♦  1) 

-11 

U407 

BS 

Al  =  COEFFD( I)+ZX*A1 

U408 

3  3 

FND  =A1 

0409 

RETURN 

0410 

END 

Figure  E-2.   Listing  of  Calibration  Data  Evaluation  Program  &EVALU 
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APPENDIX  F 
CALIBRATION  TEST  PROGRAM  TEST 

Chapter  5.2  describes  the  test  and  the  test  procedure 
used  to  verify  the  quality  of  the  calibration  in  a  freejet 
experiment.   Although  this  experiment  lacks  the  simulation 
of  high  frequency  flow  vector  changes  like  those  to  be  ex- 
pected in  its  application,  it  seems  to  be  the  most  useful 
check  of  the  calibration  itself  and  the  data  reduction  pro- 
cedure.  While  the  set-up  of  the  experiment  and  the  data 
acquisition  procedure  were  described  in  5.2  already,  details 
of  computer  program  &TEST,  which  is  used  to  perform  the  data 
acquisition  and  the  data  reduction,  will  be  given  herein. 

Like  program  &EVALU,  this  program  first  reads  the  cali- 
bration coefficient  files  into  two  arrays.   It  then  asks  the 
operator  to  key  in  the  barometric  pressure  in  inches  of 
mercury.   The  data  acquisition  itself  is  performed  in  a  D0- 
loop,  interactively  with  the  operator.   Both  probes  are  set 
to  nine  different  yaw  angles  and  data  samples  are  recorded. 
The  actual  pressure  and  yaw  angle  values  which  are  used 
are  the  averages  of  30  single  samples  each,  in  order  to  ex- 
clude any  influence  of  some  flow  irregularities.   Once  the 
data  is  taken,  the  data  acquisition  system  is  released  from 
the  HP  21 -MX  computer  control  and  the  data  reduction  is 
started. 
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The  nine  pressure  values  of  the  A-probe  are  approximated 
with  a  fourth-order  polynomial  as  a  function  of  the  yaw  an- 
gle.  From  this  approximated  curve  pressure  values  PSAL, 
PSAR  and  PAMAX  are  derived  which  are  used  to  calculate 
CPAMAX  and  BETA.   The  output  of  the  B  probe  is  approximated 
the  same  way  and  the  pressure  PBMAX  is  calculated  from  this 
curve.   Using  PBMAX  and  the  results  of  the  A  probe,  CPBMAX 
and  GAMMA  are  established.   The  coefficients  BETA  and  GAMMA 
alone  are  used  to  derive  values  of  Mach  number  (or  X)  and 
pitch  angle  C  4>    )  .   The  yaw  angle  which  corresponds  to  the 
pressure  value  PBMAX  is  assumed  to  be  the  flow  yaw  angle. 
It  should  be  close  to  zero  since  the  probes  are  aligned  with 
the  freejet  for  a  zero  yaw  angle,  unless  an  "artificial"  yaw 
angle  has  been  superimposed  on  them  as  described  in  5 . 2 

The  calculated  values  are  compared  to  those  the  freejet 
was  adjusted  to.   In  5.2  the  results  of  these  comparisons 
were  demonstrated  already. 

Labeled  common  block: 

Common  block  identifier:  Variable: 

DTA2  X1,Y 


Description 

Flow  yaw  angle  derived  from  A  probe 

Flow  yaw  angle  derived  from  B  probe 

Average  value  of  30  A  probe  pressure 
samples 


Variable 

Type 

AAO 

Real 

ABO 

Real 

AKULIT 

Real 
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Variable 

Type 

APRESS 

Real 

ASL 

Real 

ASR 

Real 

BKULIT 

Real 

BPRESS 

Real 

C0EF(7) 

Real 

C0EUX(7, 

7) 

Real 

C0EUP(7, 

7) 

Real 

CPAMAX 

Real 

CPBMAX 

Real 

DP 

Real 

DPX 

Real 

DX 

Real 

GAMMA 

Real 

ICR 

Integer 

IDCB(144) 

Integer 

IDCBS 

Integer 

IFILE(3) 

Integer 

Description 

Single  sample  value  of  A  probe  pres- 
sure reading 

Left-hand  side  yaw  angle  of  A  probe 
output 

Right-hand  side  yaw  angle  of  A  probe 
output 

Average  value  of  30  B  probe  pressure 
samples 

Single  sample  value  of  B  probe  pres- 
sure reading 

Array  to  contain  coefficients  from 
2-D  approximations 

Array  containing  the  coefficients  of 
the  3-D  approximation  for  the  velocity 

Array  containing  the  coefficients  of 
the  3-D  approximation  for  the  pitch 
angle 

Maximum  pressure  coefficient  A  probe 

Maximum  pressure  coefficient  B  probe 

Pressure  difference  for  two  pressure 
values  corresponding  to  two  yaw  angles 
which  are  separated  by  DX 

First  derivative  of  the  function 
PA(a)  -  PA(a  -  Act) 

Given  spread  in  yaw  angle  between 
PSAL  and  PSAR 

Pressure  coefficient 

Cartridge  reference  number 

Data  control  block 

Control  block  length  (of  IDCB) 

Array  containing  file  name 
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Variable 
ISECU 
ISIZE(2) 
ITYPE 
ICLR(3) 
NOLF 
PA  ( 9 ) 
PAMAX 
PB(9) 
PBARO 
PBMAX 
PHI 
PSA 
PSAL 

PSAR 

PTOTAL 
XVEL 

XO 


Type 
Integer 
Integer 
Integer 
Integer 
Integer 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 
Real 

Real 


XK256) 

Real 

Y(256) 

Real 

YAWANG 

Real 

YAWKUL 

Real 

Description 

Security  code 

Array  to  specify  file  dimensions 

Type  of  data  file 

Command  to  clear  line  above  cursor 

No  line  feed  command 

Array  for  A  probe  pressure  values 

Maximum  pressure  of  A  probe 

Array  for  B  probe  pressure  values 

Barometric  pressure  inches  of  mercury 

Maximum  pressure  of  B  probe 

Pitch  angle  (calculated) 

Static  pressure  equivalent  of  A  probe 

Pressure  reading  of  A  probe  for  a  yaw 
angle  63°  to  the  left  of  the  flow 
aligned  yaw  angle 

Pressure  reading  of  A  probe  for  a  yaw 
angle  63°  to  the  right  of  the  flow 
aligned  yaw  angle 

Total  pressure 

Mach  number  equivalent  dimensionless 
speed 

Starting  value  for  the  iteration  to 
find  PSAL  and  PSAR 

Data  array  for  2-D  approximations 

Data  array  for  2-D  approximations 

Single  sample  of  yaw  angle  reading 

Average  value  of  30  yaw  angle  readings 


.43 


c 


START 


} 


READ  CALIBRATION  COEFFICIENTS 

INTO  ARRAYS  COEKX  AND  COEKP, 


OPERATOR  INPUT  OF 
BAROMETRIC  PRESSURE 


SET  INTERFACE  BUS  AND 
DEVICES  TO  REMOTE  CONTROL. 


DO  LOOP  FOR  DAT 
DO  LOOP 


A  ACQUISITION  I=i,9,i<S» 
FOR  NUMBER  OF  SAMPLES  Q* 


ACQUIRE  YAWANGLE  AND 
PRESSURE  READING. 


APPROXIMATE  A-PROBE  PRESSURES 
AS  PA  =  PA(YAU)  (POl YNOMINAL) 


DERIVE  PSAI.  .PSAR.PAMAX. 
CPAMAX  AND/  FROM  Pa < YAW) 


APPROXIMATE  B-PROBE  PRESSURES 
AS  PB  =  PB(YAW)  (POL YNOMINAL ) 


DERIVE  PBMAX.CPBMAX 
AND  Jf  FROM  PB<  YAW)  , 


CALCULATE  XVEL  AND  PH 
FROM/*"  ANDT  . 


PRINT/,^,  XVEL, PHI , YAWANGLE 


C 


STOP 


) 


Figure  F-l.  Flow  Chart  of  Calibration  Evaluation  Program  &TEST 
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\TEST   T=00004  IS  ON  CR00026  USING  00055  BLKS  8=0000 

0  00 1  FTN4.L 

U002  PROGRAM  TEST   (3,9?) 

0003  C      ! 

0004  C 

11005  C      .      THIS  IS  PROGRAM  TEST  FOR  THE  A-B  PROBE  SYSTEM. 

0006  C 

"07  C      .       IT  ACQUIRES  DATA  FROM  THE  A-P  PROBES  MOUNTED  IN  THE  FREE-  . 

0o08  C      .       TET  IN  ORDER  TO  CHECK  THE  VALIDITY  OK  THE  CALIBRATION. 

000?  C       .      THE  DATA  IS  NOT  STORED,  ONLY  AN  ONLINE  OUTPUT  IS  AVAI- 

0010  C      .       LABLE. 

L'Oll  C      . 

0012  C  . 

0013  C 

0014  C  

0015  COMMON  /  DTA2  /  XI, Y 

0016  REAL  XK2S6)  ,  Y<256> 

0017  REAL  C0EF(7)  ,C0EKX(7,7)  .COEKPC?,?) 
J018  REAL           PA<?>  ,PB(9)  .  YAW(9) 

001?  INTEGER       IDCB( 144)  ,IFILE(3) ,ISIZE(2> 

0020  INTEGER  NOLF,ICLR<3> 

0021  DATA   IDCBS   /  144  / 

0022  DATA   ITYPE   /  1  / 

0023  DATA   ICLR    / 0 1SS24B,  0155153 ,  006537B  / 

0024  DATA   NOLFS   /    006S37B  / 

0025  101  FORMAT  (•  OUTPUT  INPUT  DATA  TO  ANY  OTHER  DEVICE?   ENTER  NO 
H026  *  OR  LU*  !  "/*'   "A2> 

0027  102  FORMAT  (  "  DO  YOU  WANT  AN  OUTPUT  OF  THE  CALIBRATION  COEFFICIENTS?" 

002G  */"  ENTER  YES  IF  SO  OR  ANYTHING  ELSE  IF  NOI>"> 

U029  103  FORMAT  (  "  DO  YOU  WANT  AN  OUTPUT  OF  THE  CONTROLL  PARAMETERS?"/"  KE 

C030  *Y  YES  IF  SO  OR  ANYTHING  ELSE  IF  NOT'") 

0031  104  FORMAT  (//"  THE  DATA  READ  FROM  FILE  "3A2"  ARE"/) 

0032  105  FORMAT  ("  I  7~3       "IU, 51125 

0033  106  FORMAT  ("I   /J  "112,6116) 

0034  107  FORMAT  <"  " 13 ,7 ( 1 X  ,F 15 . 6 > > 

0035  10H  FORMAT  ("I   /J  "112,6116) 

0036  109  FORMAT  ("  ENTER  P  BARO  IN  INCHES  HG  '  " ) 

0037  110  FORMAT  (/"  RAW   DATA  :"/"   »   A  -  KULITE   B  -  KULITE "?X " YAW" ) 

0038  111  FORMAT  ("  WHEN  YOU  ARE  READY  FOR  YAW  ANGLE  *  -12"  HIT  CR  !") 

0039  112  FORMAT  (  13 , 3( 2X . F 1 0  .  5 >  ) 

0040  113  FORMAT("  A-PROBE  APPROXIMATION  RESULTS  I  YAW  =  "3 < SX  ,  F9 . 2  )  / 16X "  PR 

0041  *ESSURE  (INCH  H20  )  =  "3 ( 3X  ,  Fl  1  , 6  )  /29X  "  CPAMAX  =  "FO . 4/ > 

0042  114  FORMAT (/"  B-PROBE  APPROXIMATION  RESULTS  :  YAW0  =  "FS.l"  PRESSURE 
U043  *(INCH  H20)  ="F6.2/'> 

0044  115  FORMAT("  AVERAGE  VALUE  RESULTS  FROM  THE  A-B  SYSTEM :  "//SX "BET A "  *X "G 

0  0  45  *AMMA"5X"Xv<»l " 4X "P l tc h "6X " Yaw "/3 ( F? . 5 ) , 2 ( 2X , F7 . 2 ) ) 

0046  149  FORMAT  ((3A2)> 

0047  150  FORMAT  (12) 

0048  1111  FORMAT  (  "  STATEMENT  *  "14"  ERROR  *  :  "F12.2"  DETECTED") 

0049  1001  FORMAT  (  'Tl R7M3 A0H0T3 " ) 

0050  1501  FORMAT  <"CA") 

0051  LI  =  LOCLLK  ISESSN) 

0052  005  WRITE  (LI,  101)  NOl.F 

0053  READ   (LI,  1491  IDUM 

0054  WRITE  (LI.  149)  (  I CLR  ,  1 1  =  1 , 2  > 

0055  IF  (  IDUM   .EO.   2HN0  )  GO  TO  010 

0056  CALL    CODE 

0057  READ       (IDUM, ISO)    LO 

3058  IF  (  LO   .EQ.    1  )  GO  TO  015 

0059  IF  (  LO   .EQ.    6  )  GO  TO  015 

0060  IF  (  LO   .EQ.   18  )  GO  TO  0l5 
HO ol  GO  TO  0  05 

0062  010  LO  =  0 

0063  015  IF  (  LO   .EQ.   LI  >  LO  =  0 

0064  WRITE  'LI. 102) 

OOoS  READ   (LI, 14?)  IPRIN1 

0066  WRITE     (LI, 103) 

0067  READ       (LI.149)     IPRINT 

0  068  C      

■-.069  C 

0070  C      .   READ  FILE  SIFX22  FROM  DISC  INTO  ARRAY  C0EKX(7,7). 

no?!  C 

'IC70  c                                •  •  ■  ....    

0073  lFtLE< i>" ='2HSt' ' 

0074  IFILEC2)  =  2HFX 
00-5  IFILE(3>  =  2H43 

0076  I5ECU  =  00 

0077  ICR  =  26 

0078  CALL  OPEN   ( I DCB . IERR  . I F ILE  ,  TOnTN  .  ISECL'.ICR  .  I DCB S  • 
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007? 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0  0  99 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0109 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0123 
0129 
0130 
0131 
0  132 
0133 
0134 
0135 
0  136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
015o 
0157 
0158 


JJ  =  1 

IF  (  IERR  .LT.   0  )  URITE  (LI,  1111)  JJ.IERR 

CALL  READF  ( IDCB , IERR , COEKX , 98 ,LEN , 1 ) 

JJ  =  2 

IF  (  IERR  .LT.   0  )  URITE  (LI, 1111)  JJ,IERR 

CALL  CLOSE  (IDCB, IERR, 0) 

JJ  =  3 

IF  (  IERR  .LT.   0  )  WRITE  (LI, 1111)  JJ,IERR 

IF  (IPRIN1  .NE.  2HYE)  GOTO  025 


OUTPUT  INPUT  DATA. 


WRITE  (LI, 104)  IFILE 

IF  (  LO   .NE.  0  )  WRITE  (LO,104>  IFILE 

URITE  (LI, 105)  (11,11=1,7) 

IF  (  LO   .NE.  0  )  WRITE  (L0.106)  (11,11=1,7) 
DO  020  11=1,7,1 

IF  (  LO   .NE.  0  )  WRITE  (LO.107)  1 1 , ( COEKX < 1 1 , Jl )  ,  Jl  =  l  ,7 , 1 > 

020  WRITE  (LI, 108)  1 1 , ( COEKX ( 1 1 , Jl ) , J  1  =  1 , 7 , 1  ) 

'.       READ  FILE  SIFP22  FROM  DISC  INTO  ARRAY  C0EKP(7,7). 

025  iFiLE(i)' ='2HSI 


?HFP 
2H43 
(IDCB,  I  ERR  ,  IFILE, IOPTN , ISECU , ICR .IDCB5) 


IFILE(2) 

IFILE(3> 

CALL  OPEN 

JJ  =  4 

IF  (  IERR   .LT.   0  >  WRITE  (LI, 1111)  JJ,IERR 

CALL  READF  ( IDCB , IERR , COEKP , 98 , LEN, 1 ) 

JJ  =  5 

IF  (  IERR   .LT.   0  )  WRITE  (LI, 1111)  JJ  ,  IERR 

CALL  CLOSE  (IDCB, IERR, 0) 

JJ  =  6 

IF  (  IERR   .LT.   0  >  WRITE  (LI,  1111)  JJ.IERR 

IF  (IPRIN1  .NE.  2HYE)  GOTO  035 


OUTPUT  INPUT  DATA. 


WRITE  (LI, 104)  IFILE 

IF  (  LO   .NE.   0  )  WRITE  (L0.104)  IFILE 

URITE  (LI,10S>  (11,11=1,7) 

IF  (  LO   .NE.   0  )  WRITE  (L0,106)  (11,11=1,7) 

DO  030  11=1,7,1 

IF  (  LO   .NE.   0  )  WRITE  (LO.107)  1 1 , ( COEKP ( 1 1 , J  1 ) , Jl  =  l ,7 , 1 ) 
030  URITE  (LI,  108)  II,  (COEKPdl,  Jl)  ,  Jl  =  l,7,  1  ) 
035  CONTINUE 

THE  DATA  ACQUISITION  SHALL  BE  PERFORMED  NOW  ! 


URITE    (LI, 109) 
READ       (LI,       *)    PBARO 
AEiRT 


CALL 
CALL 
CALL 


(7.2) 
RMOTE  (  10) 
RMOTE  (  15) 


WRITE  (10,1001) 
WRITE  (15,1501) 

WRITE  (LO,110> 
OO  050  I  =  1,9,1 
040  WRITE  (LI  .111)  I 
READ   (LI, 149) 
IF  (  IDUM  .NE. 
AKULIT 
YAWKUL 
BKULIT 
DO  045 
YAUANG 
BPKE53 
APRESS 
AKULIT 


IDUI1 

2H   )  GOTO  040 


=  0.0 

=  0.0 

=  0.0 

=  1,30,1 

=  SCANR  (  15,22.  01  ) 

=  SCANR  (15,23.01) 

=  SCANk  (15,24.01) 

=  AKULIT  ♦  APRESS 


Figure  F-2. 
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015?  YAUKUL    =  YAUKUL  +  YAWANG 

0160  045  BKULIT    =  BKULIT  +  BI'RESS 

0161  PA  ( I  )    =  AKULIT  /  30 

0162  PB  (I)    =  BKULIT  /  30 

0163  YAU(I)     =  YAWKUL  /  30 

0164  0S0  WRITE  (L0.112)  I ,P A( I ) . PB( I ) , YAU( I ) 

0165  CALL  CLEAR  (7.1) 
U166  CALL  LOCL  (  7) 
0167 

0  168  C       

0169  C 

0170  C  .    START  DATA  REDUCTION. 

0171  C 

0172  C  

0173  DO  055  I  =  1,9,1 

0174  X1(I>      =  YAW  (I)  *  10000 

1)175  055  Y  CI>     =  (PA  (I)  *  10000  )  +  (  PBARO  *  13.S85  ) 

0176  CALL  MAT?  ( 9 , 5 , COEF , -4 ) 

0177  C 

0178  C  . 

0179  C  FIND  MAX.  OUTPUT  OF  A  PROBE. 

0180  C 

0181  C  

0182  DX  «   126.0 

0183  X0  =   -7  0.0 

0134  060     DP                     *     (FNP(4  .COEF.X0)     -    FNP ( 4 , COEF , ( X0  +  DX  )  >  > 

0185  IF    (ABS(DP)     .LT.     fl.OOOl     )    GOTO    065 

0186  DPX  =  -2.  0*COEr(3>*DX-6. 0*COEF(4) iX0*DX-3 . 0 *COEF ( 4 ) *DX*DX- 

0187  *  12. 0*COEF <S)*X0*X0*DX-12«COEF(5>*X0*DX*DX-4. 0*COEF < 5 > »I)X **3 

0188  X0  =  X0  -  DP  /  DPX 

0189  GOTO  060 

0190  065  ASL  =  X0 

0191  ASR  =  X0  ♦  DX 

0192  AA0  =  XO  ♦  DX  /  2.0 

0193  PAMAX     =  FNP(4,C0FF . AAO > 

0194  P5AL  =  FNP<4 , COEF , ASL) 

0195  PSAR  =  FNP(4,C0EF ,  ASR  > 

0196  PSA  =  (PSAL  ♦  PSAR  )  /  2.0 

0197  PTOTAL    =  PAMAX 

0198  BETA  =  (PAMAX  -  PSA  )  /  PAMAX 

0199  CPAMAX    =  (PAMAX  -  PSA  )  /  (  PTOTAL  -  PSA  ) 

0200  IF  (  IPRINT  .NE..  2HYE  )  GOTO  070 

0201  WRITE  (LI. 113)  ASL , AA0 , ASR , PSAL , PAMAX , PSAR , CPAMAX 

0202  IF  (LO  .NE.  0  )  WRITE  CLO,113>  ASL  ,  AAO  ,  ASR  ,  PSAL  ,  PAMAX  ,  PSAR  ,  CPAMAX 

0203  070  CONTINUE 

u204  C       

0205  C 

0206  C  .    APPROXIMATE  B  PROBE  PRESSURES. 

0207  C 

0208  C  

G299  DO  075  I  =  1,9,1 

J210  X1<I>     =  YAW  (I)  *  10000 

021 1  075  Y  (I)     =  (PB  (I)  *  1C000  )  +  (  PBARO  *  13.S8S  ) 

0212  CALL  MAT2  < 9 . S . COEF , -4 ) 

0213  X0  =   0.00 

0214  080  DPX  =  FND(4,C0EF .X0) 

0215  IF  (  ABS(DPX)  .LT.  O.flOOOl  )  GOTO  08S 

0216  XO  =  X0  -  DPX  /<2*C0EF(3)  ♦  6*C0Er ( 4 >*X0  +  12*C0EF ( 5 ) *X0*X0 > 

0217  GOTO  080 
'J218  065  ABO       =  X0 

0219  PBMAX     =  FNP (4, COEF, ABO  ) 

0220  IF  i  IPPINT   NF-.  2HYF.  >  GOTO  090 

0221  WRITE  (LI,  114)  ABO, PBMAX 

0222  IF  <  LO  . NE .  0  )  WRITE  (L0.114)  ABO. PBMAX 

0223  090  CONTINUE 

0224  CPBMAX    =  (  PBMAX  -  PSA  )  /  (PTOTAL  -  PSA  > 

0225  GAMMA     =  (CPAMAX  -  CPBMAX  )  /  CPAMAX 
0  226  X'JEL      =0.0 

3227  PHI       =0.0 

0228  DO  09S  11=  1,7,1 

3229  DO  095  12=  1,7,1 

,.->30  XVEL      =  XVEL  +  (COEKXdl  ,12)  *GAMMA«*  (  1 2-1  )  )  *BETA  **(I\-1> 

0231  095  PHI  =  PHI   +  (COEKP< II . 12)  *GAMMA«* ( 12- 1  )  ) *BETA  »*(li-l) 

0232  PHI  =  PHI  *  180  /  3.141^9 

0233  WRITE  <LI,11Sj  BETA  ,  GAMMA  ,  XVEL  .  PH  I  ABO 

0234  IFtLO  .NF.  0)  WRITE  (LO,liS)  BET A , GAMMA , XVEL , PHI , ABO 

0235  STOP  7777 
023t>  END 

1237  REAL  FUNCTION  FNP ( NORDER , COEFF . ZX ) 

0239  REAL  COEFF v") 


ure  F-2.   Listing  of  Program  to  Test  the  Quality  of  the  Calibration:   &TEST 
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0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
024? 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0253 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 

°0l134 
0285 
0286 
0287 
0288 
0289 

o°^Q? 

0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 


01 
02 


01 


02 
03 


Al  «  COFFF(NORDER+l> 

IF  (  NORDER  .  EQ.  0  >  GOTO  02 

DO  01  II  =  1, NORDER, 1 

I  =  NORDER  +1-11 

Al  =  COEFF(I)*ZX*Al 

FNP  »  Al 

RETURN 

END 

REAL  FUNCTION  FND ( NORDER .COEFF , ZX) 

REAL  COEFF  <7> 

REAL  C0EFFD(6) 

DO  01  I=l,NORDER,l 

COEFFD(I)  =  COEFF( I+1)«I 

Al    ■  COEFFDCNORDER ) 

NORDR=  NORDER  -  1 

IF(  NORDR   .EQ.  0  >  GOTO  03 

DO  02  II  =  1 , NORDR  .1 

I  =  (NORDR  +  1)  -Ii 

Al  -  COEFFD(I)+ZX*Al 

FND  =A1 

RETURN 

END 

REAL  FUNCTION  SCANR  (LU, ICHAN, K) 


Close  relay  ICHAN  on  scanner  LU  and  read  The  instrument 

ind  icated  6y  K . 

Authori     Robert  N.  Geopfarth 

Datei       February  31,  1979 

Detailed  program  description  is  available  in  TXCO  log; 

war  nbles  are  : 

LU      ...    LU»  of  desired  scanner  (8  or  15). 

ICHAN   ...    Scanner  channel  (integer). 

IC      ...    Scanner  cnannel  (ASCII). 

K       ...    Instrument  code  (  DYM  =  1  /  Counter  *  2  ). 


the 


101 

801 

1001 

1201 

1S01 


*,  Closes  scanner  and  reads  DVM,  counter 
FORMAT  (A2) 
FORMAT  ("C") 
FORMAT  ("T3T3") 
FORMAT  ("T") 
FORMAT  <"C"> 

WRITE  <  8,  801) 
WRITE  (15,1501) 
IC  =  ICONUCHAN.O) 
URITE  (LU,  101)  IC 
GO  TO  (01  ,02)  K 

01  CALL  TRIGR  (10) 
READ   (10.    *>  DUM 
CALL  TRIGR  (10) 

READ   (10,    *)  SCANR 
GO  TO  0  3 

02  URITE  (12,1201) 

READ   (12,    *)  SCANR 

03  URITE  (LU,  801) 
RETURN 

END 

INTEGER  FUNCTION  ICON(I,N) 

IC=I+N 

IF(  IC.LT. 10)  GO  TO  100 

CALL  CODE 

URITE( ICON,60)IC 
60     F0RMAT(I2) 

RETURN 
100    ICON=IC+30060B 

RETURN 

END 


Figure   F-2.      Listing   of   Program   to   Test   the   Quality    of    the   Calibration 
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APPENDIX    G 

CALIBRATION    DATA    (C_    _)     APPROXIMATION    PROGRAM    &RES10 

FOB 

As  shown  in  Fig.  19,  CPBO  is  well  behaved  as  a  function  of 
pitch  angle  and  Mach  number  as  well.   Thus  it  is  approximated 
as  a  function  of  these  two  variables.   Program  SRES10  handles 
this  procedure.   It  is  in  principal  again  the  same  program  as 
&REST8,  like  &REST9,  so  that  a  detailed  program  description 
will  not  be  given  here.   However,  it  shall  be  mentioned  here 
that  the  data  which  is  the  basis  of  the  approximation  is 
contained  in  data  file  A3NEW2.   This  is  an  indication  that 
this  file  contains  all  the  data  necessary  to  represent  the 
whole  calibration. 

For  the  evaluation  of  the  quality  of  the  approximation, 
errors  are  printed  out  as  were  for  &REST8 .   These  are  calcu- 
lated as: 

CPR     "  CPo 

Zr-n  =  r, '  1U0 

Pb0        CPBPm 
Om 

index  m  =  known  from  measurement 
index  c  =  calculated 

The  variation  in  the  order  of  polynomials  for  the  approxi- 
mation was  changed  in  two  DO-loops  also  and  the  one  for  the 
best  error  results  chosen.   Those  coefficients  are  stored  in 
file  MISTCP  on  cartridge  26.   Figure  G-l  shows  the  coefficients 
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and  the  associated  errors.   The  highlighted  area  gives  the 
range  of  Mach  number  and  pitch  angle  which  will  most  likely 
occur.   Thus  the  error  distribution  within  there  is  most 
important. 

Figure  G-2  gives  a  listing  of  program  &RES10.   The  simi- 
larities to  programs  &REST8  and  &REST9  are  obvious,  so  that  no 
flow  chart  or  further  explanations  are  given. 
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&RES10  7=00004  IS  ON  CR00026  USING  00024  BLKS  R=0000 

0001  FTN4.L 

0002  PROGRAM  RES10  (3,97) 

0003  C       

0004  C        This  is  program  RES(tore)  10. 
0U0S  C 

0006  C        There  are  some  prograns  REST  ,  which  in  principle  do  all  the 

0007  C        sane    Ihev  restore  calibration  data  of  a  probe  into  a  lorn 

0008  C         that  can  be  used  to  appr o x i«a t e  this  data  bv  a  calibration 

0009  C      .  surface. 

0010  C        The  software  used  for  the  surface  approximation  is  available 
U011  C        in  the  Turh opr op u  1  s i on  Laboratory  Binary  L ibrar y < TPLBL  )  . 

0012  C       .  See  NPS67-80-0 0 ICR  for  further  reference. 

0013  C        In  this  particular  case  the  calibration  data  of  the 
00  14  C 

UlllSC       .   N  E  U   A  -   A  N  D   B  -  P  R  O  B  E  S 

0ul6  C 

001?  C      .   are  approximated  ' 

0018  C       .   CpOB   =   f(PHl.XVEL) 

001V  C 

0  020  C       

0021  COMMON  /  MATRX  /  A.B 

0022  COMMON  /  SUMME  /  PHI ,XVEL  .  HP  OK 

0023  REAL  PLOTR  (  2S6  )  .  A  <  4V  49  )  ,  ft  (  49  >  ,  COEFF  (  7  ,  7  )  ,  D(  1  0  ,  S4  ) 

0024  INTEGER  I  DCB  <  1  44  )  ,  IF  ILE  (  3  )  .  ISIZ1!  (  2  )  ,  NOCR  (  2  )  ,  ICt.R  <  3  > 

0025  REAL  XUEl  (  16  .16)  ,PHKl6,lfe)  ,CP0B<  16,16)  ,R(  16) 

0026  DATA  PI  /3.141S93/ 

0027  [>ATA  IFILE  /2HAB , 2HNE , 2HU2/ 
002O         DA1A  NOCR  /000033B . U40433B/ 

0029  DATA  ICLR  / U 1 S524H , 0 1 SSlSb , 0 06537B/ 

0030  DATA  ISECU  /0/ 

0031  DATA  ICR    /26/ 

0032  DATA  ITYPE  /l/ 

0033  DATA  ISIZE  /3.12Q/ 

0034  DATA  IDCBS  /144/ 

0035  101  FORMAT  ("  SELECT  SET  OF  COEFFICIENTS  FOR  BEST  RESULTS  ! "/"  ENTER  M 

0036  *ORDER  AND  NORDER  NOW  :") 

0037  149  FORMAT (""( <3A2) ) > 

0038  60)  FORMAT  (///"  COEFFICIENTS  FOP  THE  CALIBRATION  SURFACE  STORED  IN  FI 

0039  *LE  :"3A2/) 

0040  602  FORMAT  * ( 3X , 1 6 ( 6X , 12 ) > ) 

0041  603  FORMAT  i 1 X , 1 2^1 n ( 1 X , F7 . 3 ) /3 ( 3X . 1 6 < 1 X , F7 . 3 ) / ) ) 

0042  604  FORMAT  (///"  ERRORS  AT  EACH  POINT  <%)"/> 

0043  60S  FORMAT  (  <  3X  ,  1 II  (  1 1  X  ,  12  )  )  ) 

0044  606  FORMAT  ( IX ,  12 , 7 ( 2 X  ,r  1  1  .  6  )  ) 

0045  1111  FORMAT  (  "  STATEMENT  #  "14  "  ERROR  »  "14  "  ENCOUNTERED  ' " ) 

0046  LI  =  LOGLU( I ) 

0  0  47  C       

0048  C 

0049  C  READ  DATA  FILE  ABNEU  . 

0050  C 

0051  C       

0052  CALL  OPEN  ( I DCB ,  IFRR  .  IF ILE  ,  IOF TN , ISECU , ICR . I DCBS ) 
0  0 S3  J J  =  1 

0054  IF  (  IERR   ,LT.   0  )  URITE  (LI,  1111)  JJ.IERR 

0055  CALL  READF  < I DCB , IERR , D , 1 080 . LEN , 1  ) 
0  0'^  J.1  =  2 

0057  IF  (  IFRR   ,LT.   0  )  URITE  (LI.llll)  JJ.IERR 

0058  CALL  CLOSE  ( IPCH ,  tERR  ,  0  i 
OOSv          J  J  =  '>. 

0060  IF  (  IERR   .LI.   0  )  WRITE  «.  1_  I  ,  1 1  i  t  >  JJ.IERR 

On 61  IT  =0 

0062  DO  0OS   I    -1,61 

0063  DO  00S   J    =  1.9.1 
D0o4  I J  =1.1  -»  1 

0  06S  XVEL  a  .  J  >   =  DC5.IJ) 

0  0*^  IF  (  J   CO.  6  )  P(4  TJ)  -    D(4.IJl  ••  0.0000  1 

006^  PHI   (I.J)   =  D(4,IJ)  *  PI  -  lfi(J 

U06tf     0  0S  CP0B  (I,  J)   =  D*6.IJ> 

0  0  6<->  NMArH   =  o 

0C0  NPI1CH  =  <* 

OD 71      010  CONTINUF 

o  ■  . 

0  0  "3 

L'0"'4  C 

0Q7?  L 

fill";-  f         CALCULATE  CALIBRATION  SURFACE  COEFFICIENTS 

l>l)7™  C 


Figure   G-l.      Listing   of   Program   to   Approximation   C  Values:       &RES10 

(Continued   on   next   page.) 
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007? 
0080 
0081 
0082 
0093 
0084 
0085 
0086 
0087 
0088 
008? 
0090 
0091 
0092 
0093 
0094 
0  095 
009b 
0097 
0099 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
OlOo 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
3120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
013i 
0132 
0133 
0134 
0135 
0136 
0137 
0  138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
014o 
0147 
0148 


020 


=  0 


1,6,1 
1,6,1 

nu 

1,7,1 
t  ,7,1 

"  0 


IJI  =  0 
DO   060  MU 
DO   060  NU 

BffiBB 

015  CONTINUE 

DO  020  I 

DO  020  J 

COEFF( I.J) 

M=MORDER+i 

N=NGRDER+i 

CALL  COflAT  (A,B,M,N,NMACH,NPITCH) 

NEGUS=H*N 

CALL  ELGJ  (NEQUS) 

11=0 

DO  025   I  =  1,H,1 

DO  025   J  =  1,N,1 

II  =  li+{ 

025  COEFF(  I,  J>  =  B(U) 

IF  (  IJI  ,NE.  1  )  GOTO  030 

IFILE(l)  =  2HHI 

IFILE(2)  =  2HST 

IFILE(3>  =  2HCP 

CALL  GREAT  (  I  DCS  ,  IERR  ,  IFILE , ISIZE , I  TYPE , I3ECU ,  ICR , IDCBS > 

JJ  =  4 

.LT.   0  )  URITE  (LI, 1111)  JJ.IERR 
(IDCfc, IERR,  IFILE, IOPTN, ISCCU, ICR,IDCSS> 


IF  (  IERR 
CALL  OPEN 
JJ  =  5 
IF  (  IERR 


.LT.   0  )  URITE  (LI, 1111)  JJ,IERR 

CALL  URITF  ( IDCfc , IERR , COEFF , 98  J 

JJ  =  6 

IF  <  IERR   .LT.   0  )  URITE  (LI, 1111)  JJ.IERR 

CALL  CLOSE  < IOCS, IERR, 0) 

JJ  =  7 

IF  (  IESR   .LT.   0  )  URITE  (LI, 1111)  JJ,IERR 

WRITE  (6,601)  IFILE 
030  CONTINUE 

URITE  (6.605)  (J,J=1,N,1) 

DO  035   f  =  l,«,i 
03S  URITE  (6,606)  I , ( COEFF ( I, J ) , J=l , N, 1 > 

URITE  (6,605)  (J,J=1,N,1) 


OVERWRITE  DATA  ARRAT  UITH  CALCULATED  DATA 


040 
045 
050 


URITE  (6,604) 

URITF  (6,602)  < J . J=l , NP ITCH , 1 ) 

DO  050   I  =  1 ,NMACH, { 

DO  045   J  =  1,NPITCH,1 

SUM        =  0. 

DO  040   II  =  1  ,M,1 

DO  040   Jl  =  1 ,N, 1 

SUH=SUM+<COEFF(ll  ,  J1)*XUEL( I  ,  J >**( J  1 -1 )  ) *PHI   (I,J)«*(I1-1) 

R(J)  =  <  (CP0fc( I  ,  J;-5UM)/CP0£<(  I  .  J  )  )*100 

WRITE  (6,603)  I  ,( R I  J > , J  =  l ,NP 1 TCH  ,  1 ) 

URITE  (6,602)  (J, J=l .NPITCH, 1) 


IF  (IJI  .EQ.  1  )  GOTO  065 


060  CONTINUE 

WRITE  (LI.101) 

READ   (LI,   *>  MORDER .NORDER 


065  9 


IJI  =  1 
GOTO  015 

OP  7777 
END 


Figure  G-l.   Listing  of  Program  to  Approximation  CpoB  Values:   &RES10 
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APPENDIX  H 
TEST  DATA  ACQUISITION  PROGRAM  &ABKUL 

Program  &ABKUL  is  rather  complex.   The  amount  of  data 
gathered  and  stored  is  quite  extensive.   Since  the  data  re- 
duction procedure  is  faster  if  only  one  file  contains  all 
data,  the  use  of  a  single  data  file  seems  to  be  justified. 

Before  any  data  acquisition  is  performed,  the  file  to 
contain  the  data  is  created  under  a  name  given  by  the  opera- 
tor.  This  way  it  is  ensured  that  there  is  sufficient  space 
on  the  cartridge  to  store  the  file.   Once  this  is  done,  the 
data  array  (DATA(20 , 256) )  is  preset  with  zeros  and  the  inter- 
face bus  and  devices  are  set  to  remote  control.   The  first 
part  of  the  data  acquisition  is  for  the  first  on-line  cali- 
bration.  Both  Kulite  probes  are  at  the  same  radius  as  the 
rotor  exit  combination  probe  and  all  probe  yaw  angles  are 
fixed  to  the  same  angle  given  by  the  combination  probe.   This 
one  is  assumed  to  be  the  time  averaged  flow  yaw  angle.   The 
reference  pressure  on  the  back  side  of  the  Kulite  transducers 
is  changed  to  a  known  value  and  a  set  of  data  is  recorded. 
This  data  includes  the  pressure  readings  of  the  Kulite  probes 
and  their  reference  pressure  as  well  as  all  the  information 
available  from  the  combination  probe.   Once  this  data  is 
collected,  the  Kulite  probe  reference  pressure  is  changed  to 
another  value  and  another  set  of  data  is  acquired.   This 
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procedure  is  carried  out  for  a  total  of  four  different  refer- 
ence pressures,  allowing  sufficient  time  after  each  pressure 
change  for  the  measuring  system  to  adapt  to  the  new  pressure. 
After  the  last  pressure  is  applied,  the  reference  pressure  is 
reset  to  barometric  pressure  and  the  data  acquisition  for  the 
first  on-line  calibration  is  completed.   During  the  data 
acquisition  the  recorded  data  is  printed  out  immediately  so 
that  its  quality  can  be  evaluated  right  away. 

Before  the  acquisition  of  high  speed  data  is  performed, 
the  operator  is  asked  to  specify  the  number  of  yaw  angles  he 
wants  the  Kulite  probes  to  be  moved  to.   A  maximum  of  nine  is 
possible  and  this  number  should  always  be  favored  to  ensure 
sufficient  data  to  cover  a  range  of  16  0   in  yaw  angle  as  ex- 
plained in  6.3.   The  program  asks  the  operator  to  set  both 
Kulite  probes  to  the  first  yaw  angle  and  to  initiate  the  data 
acquisition.   In  a  first  DO-loop  data  from  the  type  A  probe 
is  gathered  for  256  consecutive  circumferential  positions. 
Each  of  the  256  values  is  the  average  of  40  single  samples 
which  are  acquired  on  consecutive  revolutions.   In  a  second 
DO-loop  the  same  kind  of  data  is  acquired  from  the  B  probe. 
Since  the  two  probes  are  mounted  on  the  compressor  case  wall 
separated  by  270°  circumf erentially ,  the  trigger  numbers 
where  the  data  acquisition  starts  are  separated  by  a  number 
of  1728  cts.=270°  for  the  two  probes.   CThe  trigger  device 
splits  360°  up  into  2304  single  counts.   Both  probes  acquire 
data  for  256  counts,  40°  respectively.   Since  the  rotor  has 
18  blades,  two  blade  passages  are  covered.) 
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When  the  second  DO-loop  is  done,  steady  state  data  from 
the  combination  probe  and  the  Kulite  probes  is  acquired.   This 
data  is  of  the  same  kind  as  that  for  the  on-line  calibration 
data  and  is  in  general  very  helpful  for  checking  purposes.   It 
is  printed  out  as  soon  as  it  is  acquired.   From  the  high  speed 
data  the  overall  average  values  for  all  256  positions  from  A 
and  B  probes  are  derived  and  printed  out  also. 

The  DO-loop  is  continued  by  the  operator  initializing  the 
acquisition  for  another  yaw  angle  setting  of  both  probes. 

When  the  data  for  all  desired  yaw  positions  is  acquired, 
a  second  on-line  calibration  is  performed.   The  results  are 
printed  out  immediately  so  that  they  can  be  compared  to  those 
from  the  first  calibration  and  obvious  errors  can  be  detected 
right  away.   From  the  two  on-line  calibrations  slopes  and 
intercepts  are  derived  for  both  probes  as  described  in  6.3. 

Finally  the  data  is  stored  in  the  assigned  file. 

Figure  H-l  gives  a  flow  chart  of  program  &ABKUL,  while 
Fig.  H-2  is  a  listing. 


Variables 

Type 

AVRGA 

Real 

AVRGB 

Real 

BUFR(1664) 

Integer 

DATA(20,256) 

Real 

DCA 

Real 

DCB 

Real 

Description 
Average  value  of  A  probe  output 
Average  value  of  B  probe  output 
Buffer  array 
Data  array 

DC-level  reading  of  A  probe 
DC-level  reading  of  B  probe 


156 


Variables 


DE 


Type 
Real 

Real 


FSVLTG 

Real 

IBUFF(99) 

Integer 

IBLADE 

Integer 

ICLR(3) 

Integer 

ICOUNT 

Integer 

ICR 

Integer 

IDCB(144) 

Integer 

IDCBS 

Integer 

IDUM 

Integer 

IFILE(3) 

Integer 

IL 

Integer 

ISECU 

Integer 

IRPM 

Integer 

ISIZE(2) 

Integer 

I  TYPE 

Integer 

LI 

Integer 

LO 

Integer 

MASK 

Integer 

NOLF 

Integer 

Description 

Voltage  difference  between  combination 
probe  and  reference  temperature  probe 
thermocouple 

Voltage  reading  of  combination  probe 
thermocouple 

Calibration  factor  Kulite  probe 
reading 

Array  for  Kulite  sample  values 

Number  of  compressor  rotor  blade  pairs 
to  be  investigated 

Command  to  clear  line  above  the  cursor 

Number  of  acquired  data  points  (1 
through  2  56) 

Cartridge  reference  number 

Data  control  block 

Data  control  block  length 

Dummy  variable 

Array  containing  file  name 

Total  number  of  words  stored  in  data 
file  (two  words  for  one  value) 

Security  code 

Rotational  speed  derived  from  trig- 
gered measurements 

Array  to  specify  fill  dimensions 

Type  of  data  file 

Input  device  number 

Output  device  number 

Masking  variable 

No  line  feed  command 


157 


Vari 

.ables 

Type 

PBARO 

Real 

PCAL 

Real 

PREF 

Real 

PI,  P23,  P4  Real 

RPM  Real 

SECON  Real 

SLOPE  Real 

TARE  Real 

X(4)  Real 

XIMA  Real 

XIMB  Real 

XIMC  Real 

Y(4)  Real 

YAWA  Real 

YAWB  Real 

YAWC  Real 

YAWP  Real 


Description 

Barometric  pressure 

Calibration  pressure  for  the  Scanivalve 

Reference  pressure  for  the  Kulite 
probes 

Pressure  readings  for  the  combination 
probe 

Compressor  speed  as  read  from  counter 

Intercept  of  either  A  or  B  probe 
calibration 

Slope  of  either  A  or  B  probe 
calibration 

"Zero  drift"  for  Scanivalve  transducer 

Array  for  on-line  calibration  data 

Immersion  of  A  probe 

Immersion  of  B  probe 

Immersion  of  combination  probe 

Array  for  on-line  calibration  data 

Yaw  angle  of  A  probe 

Yaw  angle  of  B  probe 

Yaw  angle  of  C  probe 

Total  number  of  yaw  positions  for 
the  A  and  B  probe 
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f             START      J 

__j  • 

ICREATE  DATA  FILE  1 

| PRESET  DATA  ARRAY  WITH  0  .  u 

1 

SET  INTERFACE  BUS  AND 
DEVICES  TO  REMOTE  CONTROL 

[PERFORM  DNlTne  i'-Ai  T.  iuvaTIUn  | 


DO  fill.  1  =  1  ,  YAUP  ,i 

(DATA  ACQUIS!  I i  ON 

FOR  ALL  YAW  POSITIONS) 


DO  0  08  r  l  =2S6.,5i..? 
(A-PROBE  POSITION? 

RELATIVE  TO  ROTOR 


A 


DO  0  : J  V  J  1  =  1 .40 ,1 

( DATA  SAMPL FS) 


Fiqure  H-l.  Flow  Chart  of  Data  Acquisition  Program  &ABKUL 
(Continued  on  next  page.) 
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£ 


DO    (HO    11=1984,2240,1 
<P.-PROti£    POSH  IONB1 
RF.I  AT  WE    TO    ROTOR) 


DO    0  09    Ji=l ,40 , i 
(DATA    SAMPLES) 


l store  pgTg  rg  PIL-H 


C 


ST  OH 


J 


Figure  H-l.  Flow  Chart  of  Data  Acquisition  Program  &ABKUL 
(Continued  on  next  page.) 
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••ABKUL    T=00004     IS    ON    CR00026    USING    00061    BLKS    R=0000 
"PROGRAM    ABKUL    (3,99) 


0001 

FTN4 

U002 

0003 

C 

00  0  4 

C 

ooos 

c 

0006 

c 

.1  a  0  7 

c 

0  0  08 

c 

0009 

c 

0010 

c 

0  01  i 

c 

0012 

c 

00  13 

c 

0014 

c 

0015 

c 

0C16 

c 

0017 

c 

0018 

c 

HO  19 

c 

0  0  20 

c 

0021 

c 

0022 

0023 

0024 

002S 

U026 

0  0?7 

0328 

0  029 

0030 

U031 

0  032 

0033 

0034 

r.0  35 

u036 

■1037 

101 

0  0  38 

:0  39 

040 

3041 

0  042 

.043 

102 

'.0  44 

;04S 

J  0  46 

103 

'047 

104 

-0  48 

049 

JSO 

105 

>05i 

106 

;052 

!0S3 

107 

;os4 

055 

056 

108 

•357 

109 

■058 

"59 

110 

!  0  6  0 

dtol 

062 

111 

J63 

064 

065 

O06 

■>b7 

112 

363 

69 

148 

j70 

071 

14° 

1  7  o 

073 

150 
801 

074 

1001 

075 

1201 

"7© 

1501 

377 

-78 

1111 

This    is    program    ABKUL(ite). 

It  performs  an  online  calibration  of  The  A  and  B  kuliteprobes 
and  a  data  acquasition  for  7  yiu  positions  of  these  probes  as 
well . 


Author     :       Friedrich    Neuhoff 
Date  :        July    20,     1981 


ilil(ltil<iliiiuilititlni<uui>iri(iu«lllultiii.in(iiliiii'.i 

*  * 

*  NOTE  :  IF  THE  "C"  WILL  BE  REMOVED  FROM  THE  STATEMENTS  * 

*  CONTAINING  ASTERISKS  IN  CULUMN  73  AND  HIGHER.  * 
»            NO  STEADY  STATE  DATA  WILL  E<E  ACCUIRf.D  AND  LNLY  * 

*  ONE  SET  OF  HIGH  SPEED  DATA  WILL  BL  TAKEN'  t 

*  * 

iimiiniiiiiii.nitKiimum .iiuiiiiii..ii.itit.H.uu 

DIMENSION  IBUFF(99) , IGCB( 192) 

REAL     DATA<20 .  2S6>  ,  X(4>  ,Y(4>  , AURGA.AVRGB 
INTEGER  BUFR  (1664) 

INTEGER  NOLF,IDCB( 144)  ,ICLR(3> ,IFILE(3),ISIZE(2> 
DATA   IDCBS     /   144/ 


D^TA  m™  ',    W, 


DATA  ITYPE  /  1/ 
DATA  IL  /10240/ 
DATA  ISIZE(l)  /  80/ 
DATA  ISIZE(2)  /  128/ 
DATA   NOLF      /  006537B/ 

DATA   ICLR      /  01S524B,01SS15B,006S37B/ 
DATA   MASK      /  177700B/ 
DATA   FSVLTG    /  .1E01/ 

FORMAT  ("  This  is  program  ABKUL ( i te > . "/ "  It  first  performs  a  data 
♦acquasition  for  an  online  calibration  of  the  A  and  B  "/"  probe?."/ 

*  "  then  it  takes  paced  data  from  the  probe*  at  7  different  yaw  posi 

*  t  1  0  n  s  "/"  interactively  with  the  operator.  At  the  end  another  set 
*of  data  for  an  online"/"  calibration  is  accqu ir ed '  "//*  The  whole  r 
*aw  data  is  stored  in  one  file1") 

FORMAT  <////"  The  online  calibration  shall  be  performed  now1"/"  It 

*  allows  four  different  reference  pressures1"//"  When  the  fir^t  ref 
♦.pressure  is  applied  correctly,  key  GU ' " ) 

FORMATC /// .36X"  Online  calibration1'///) 

FORMAT < 13X* Inner . conO .    yaw  c onb . " 1 0 X "P 1  "9X "P23  "  1  OX  "P4 " /5X "P 0  in t 
*#  Inner. A  pr .     vaw  A  pr  .  "9X "DCA "8X "Pre f " 1  OX  "T t  "/l 3X  "  I  mner  .  B  pr . 

*  vaw  B  pr  .  s9X"DCB"9X"RPM"9X"DTt "///) 
FORMAT  (/12X,5<2X,F10.6>/SXI2,SX,S(2X,F10.6>/12X,5<?X.F10.6)) 
FORMAT  <"  Apply  the  next  ref.  press,  and  key  GO  wnen  The  condition 

*<-,  are  s t ab le  /  eno ugh  for  the  next  reading1  > 
FORMAT("  1st  online  calibration  done1"/"  Reset  the  ref.  prf?,?,.     for 

*  the  high  speed  data  acquasition1"/"  Enter  the  nunher  of  different 

*  yaw  anqles  you  want."/  "  Hit  CR  after  that  to  continue!") 
FORMAT  ( ////36X  "Avenge  values  fron  pared  run"///) 
FORMAT  ("  Adjust  both  kulite  probes  to  yaw  angle  number :" 12/ "  Key 

*CO  when  this  is  done'") 

FORMAK /?4X"A  probe"30X"B  pr obe  "/26X "SI  ope  "6X  "  I  n ter cep t  *  "10X"Slo 
*oe  "6X"InT8PCipt  "/47X"*"/"  1<=t  ca  1  ibra  t  1  on  "2  <  3X  F12  .  6  )  "  *  "2(3X,Fi2 

*  .  M/47X"*"/"  2nd  calibrat  ion"2(3X ,F1? . 6)  "  *  "2 < 3X , F 1 2 . e ) ) 
FORMAT  <"  Second  online  calibration  don.--'"/"  Reset  the  ref.  press. 

*  and  consider  the  data  acquasition  To  be  completed ' "//"  Conpare  th 

*  e  results  of  the  two  online  calibrations  and  check  for  drift1"/"  I 
*f  the  drift  can  be  accepted,  key  in  tno  file  nane  you  want  the  dat 
*a"'"  to  be  stored  in1") 

FORMA!  ("  Averaqed  values  paced  output  ;  A  probe  :"F10.S"  D  probe 
*:  "F10.5) 
FORMAT  ("  Output  input  data  to  cny  other  device'   Enter  NO 

*  or  LU«  1  "/"   "A2> 
FORMAT  <C3A2>> 

150   FQRMA1  (12) 
801   FORMAT  ("CA") 

FORMAT  < "F1R7M3A1H0T3") 

FORMAT  (  "Pt'4G6T" 

FORMAT  ( "CA" > 

FORMAT  ("  STATEMENT  *  "15"  ERROR  *  "  T -  "FNCOUNTERED '  " ) 


Figure   H-2.      Listing    of   Data  Acquisition  Program    &ABKUL 
(Continued   on   next   page.) 


161 


0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
010S 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0113 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
1)140 
0141 
0142 
0143 
(1144 
0145 
0146 
0147 
0148 
U149 
0150 
0151 
0152 
0153 
Ol54 
0155 
0156 
OlS"7 
ni58 


LI  =  LOGLU(ISESSN) 
77  WRITE  (LI ,  148)  NOLF 
READ   <LI,  149)  IDUM 
WRITE  (LI,  149)  ( ICLR ,11=1 ,2) 

.EQ.   2HN0  )  GO  TO  78 


IF  (  IDUM 
CALL  CODE 
READ   (IDUM. 150)  LO 


IF  <  LO 
IF  (  LO 
IF  (  LO 
GO  TO  77 

78  LO  *    0 

79  IF  (  LO 


>  GO  TO  79 
)  GO  TO  79 


.EQ, 


WRITE  (Llilfli) 


IB  )  GO  TO  79 


LI  >  LO 


01 


03 


Preset  data  array  with  zeros! 

DO   01   I  =  I.  20,1 
DO   01   J  =  1,256,1 
DATA  (I,J>  =  6.0 

•     Set  interface  bus  and  devices 

t  o  remote  control  ! 

CALL  ABRT(7,2> 
CALL  RMOTE(  8) 
CALL  RMOTE(IO) 
CALL  RM0TE(12> 
CALL  RMOTE(lS) 
WRITE  (  8,  801) 
WRITE  (10,1001) 
WRITE  (12,1201) 
WRITE  (15,1501) 


Perforn  the  data  acquasition  for  the  first  online  calibration 


J  =  1 

GOTO  05 

I  =  1 

WRITE  (LI, 102) 
READ  (LI, 149) 
IF  (  IDUM  ,NE. 
WRITE  (LI, 103) 
IF  (  LO  .  NE.  0 
WRITE  (LI, 104) 
IF  ( LO  . NE .  Q  ) 
TARE2  =  ACQN 
PCAL 


PI 

P23 

P4 

RPM 

PHARO 

XIMC 

YAUC 

XIMA 

YAWA 

XIMB 

YAWB 

PREF 

E 

DE 

DCA 

DCB 

DATA( 1 

DATAU 

DATA( 1 

DATA( 1 

DATA( 1 

DATA( 1 

DATA< 1 ' 

DATA(  1 

DATA( 1 

DATAd 


ACQN 
ACON 
ACQN 
ACUN 
SCANR 
SCANR 
SCANR 
SCANR 
SCANR 
SCANR 
SCANR 
SCANR 
SCANR 
SCANK 
SCANR 
SCANR 
SCANR 
)   = 
1  )   - 

2)  = 

3)  = 

4)  = 

5)  = 
6) 

7)   = 

9) 

o  )   = 


IDUM 

2HG0  >  GOTO  02 

)  WRITE  (LO.103) 

(WRITCJ^,104) 

(  4,  2,10: 
<  4,  6, io; 
(  4  ,  7,10: 

'  4,  8,10; 


(  8,17, 
(  8,25, 
(  B,32, 
(  8,33, 
(  8,34, 
(  H, 35, 
(  8,36, 
(  8,37, 
(  8,39, 
(  15,  18, 
(15,  19, 
(  15,52, 
(15,53, 

TARE2 

PCAL  2 

Pi 

P23 

P4 

RPM 

PPAR0 

XIMC 

>  AWC 

XIMA 


Figure  H-2 


Listing   of    Data   Acquisition   Program    &ABKUL 
(Continued   on   next   page.) 


162 


015?  DATA(1,J+10)   =  YAUA 

0160  DATA(l,J+li)   =  XIMB 

0161  DATA(1,J+12)   =  YAUB 

0162  DATA(1,J-H3)   =  PREF 

0163  DATA(1,J+14)   =  E 

0164  DATAd  , J+15)   =  DE 

0165  DATA(i,J+16>   =  DCA 

0166  DATA(i,J+17)   =  DCB 

0167  WRITE  (LI, 105)  XIHC , Y AUC , P 1 , P23 , P4 , I , XIMA , YAUA , DCA , PREF , E , X  I  MP , 

0168  *YAWB,DCB,RPM,DE 

0169  IF  (  LO  .NE.  0  )  URITE  <LO,105>  XIHC , YAUC ,P 1 ,P23 , P4  ,  I , X  IMA , r AUA  ,DC 

0170  tA. PREF , E, XI MB, YAUB, DCB.RPM.DE 

0171  If  (  .1  .EQ   6{  )  C6TO  ds 

0172  IF  <  J  .EQ. 141  )  GOTO  10 

0173  04   URITE  (LI, 106) 

0174  READ   (LI, 149)  IDUM 

0175  URITE  (LI, 149)  <  ICLR, 11  =  1.3) 

0176  IF  (  IDUM  .NE.  2HG0  )  GOTO  04 

0177  J  e  J  +  20 

0178  1=1+1 

0179  GOTO   03 

0180  05   URITE  (LI, 107) 

0181  READ   (LI,   *)  YAWP 

0182  YAWP  =  YAUP  *  2 

0183  C  

0184  C 

0185  C  .   Data  acquisition  of  hiqh  5peed  data. 

0186  C  . 

0187  C 
0  1  98   C 

0189  'write  '  Hi  !i08) 

0190  IF  (LO  .NE.  0  )  U3ITE  (LO.108) 

0191  URITE  (LI, 104) 

0192  IF  (LO  . NE .  0  )  URITE  (L0.104) 

0193  DO   09   JI  =  2, YAUP, 2 

0194  JJ  =  JI  /  2 

0195  06   URITE  (LI, 109)  JJ 

0196  READ   (LI,149)IDUM 

0197  C  URITE  (LI, 149)  (  ICLR, 11=1, 3) 
019O  IF  (  IDUM  .NE.  2HG0  )  GOTO  06 

0199  AVRGA     =0,0 

0200  ICOUNT    =    0 

0201  START     =  256 

0202  STOP      =  256  ♦  256 

0203  DO  61  II  =  START. STOP, 1 

0204  ICOUNT    =  ICOUNT  +    1 

0205  IBLADE  =  II  +  100000B 

0206  CALL  EXEC  (3,19) 

0207  CALL  EXEC  ( 1 , 19 , IRPM , 1 , I  BLADE  ) 

0208  CALL  EXEC  ( 1 , 20 , I BUFF , 30 , 0 , 0 ) 

0209  RBUFF     =0.0 

0210  DO  02  JI  =  1,30,1 

0211  IBUFF(J1)=  IAnD! IBUFF< JI > .MASK > 

0212  62   RBUFF     =  FLOAT  (  IPUFF(Jl)  )  /  32768.  +  RBUFF 

0213  DA1A(JI, ICOUNT)  =  ( ( RBUFF*FSVLTG ) /30  ) 

0214  AVRGA  =  AVRGA  ♦  DATA  (JI, ICOUNT) 

0215  61   CONTINUE 

02lb  AVRGA  =  AVRGA  /  256 

0217  C  DO  5454  I  =  1,32,1 

0218  C5454  URITE  (6,1313)  ( J  . DAT A ( J I  . J >  ,  J  =  1,256,32  ) 

0219  C1313  FORMAT  (3("  DATA  (  *  13  "  )  =  "F6 .  0 )  ) 
0  22  0  URITE  (1,222)  AVRGA 

0221  222   FORMAT!  "  AVRGA  =  "F12.6) 

0222  AVRGB     =0.0 

0223  ICOUNT    =    0 

0224  START     =  1696 

0225  STOP      =  1696  +  256 

0226  DO  64  II  =  START, STOP, 1 

0227  ICOUNT    =  ICOUNT  +  1 

0228  IBLADE    =  II  +  100000B 

0229  CALL  EXEC  (3,19) 

0230  CALL  EXEC  ( 1 , 19 , 1  PPM  1  IBLADE  ) 

0231  CALL  EXEC  ( 1 , 20 , IBUFF , 30 , 1  , 0  ) 

oil!  rdSuf63  ji  :  Ho.i 

0234  IPUFF(J1>=  I AND< IBUFF ( JI ) .MASK ) 

02">5     63   RBUFF     =  FLOAT  <  IBUFFCJl'  )   '  32r'63  .  +  RBUCF 

0236  DATA^JI  +  l  , ICOUNT)  =  n RBUFF*FSVLTG ) /30 > 

0237  AVRGB  =  AVRGB  +  DATA  ( J  I  +  1  ,  ICOUNT ^ 

0238  r,4       CONTINUE 


Figure   H-2.      Listing   of  Data  Acquisition  Program    &ABKUL, 
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0239 
(1240 
0341 
0242 
0243 
0244 
C24S 
0246 
0  247 
0248 
0249 
0250 
0251 
02S2 
02S3 
0254 
0255 
02S6 
0257 
0258 
02S9 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
1)276 
0277 
0278 
027? 
0280 
0281 
0202 
0283 
0284 
0285 
0286 
0287 
0288 
0  289 
0290 
0*'9l 
0292 
0293 
0294 
0295 
0296 
02«7 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0^09 
U310 
0311 
0312 
0313 
0314 
0315 
33 1  o 

0319 


AVRGB  =  AVRGB  /  256 

DO  5455  I  *  1,32.1 
455  WRITE  (6,1313)  ( J , DATA( J  I +1 , J > , J  =  1,256,32) 


1  ,333>~AVRG& 
333  FORMAT (*  AVRGB 


WRITEt: 


F12.6) 


Get  necessary  steady  state  data 


GOTO  099 
I  =  (JJ 
DATA(20, 
DATA(20, 
DATA(20 , 
DATA(20, 
DATA(20 , 
DATA(20 , 
DATA(20 , 
DATA(20 , 
DATA(20 , 
DATA(20, 
DATA(20 , 
DATA(20  , 
DATA(20, 
DATA(20, 
DATA(20, 
DATA(20, 
DATA(20 , 
DATA(20, 
DATA(20 . 
DATA(20, 
WRITE  (L 
*.DATA(20 
tDATA(20 . 
*DATA(20 . 
WRITE  (L 
IF  (  LO 
*,I+2) .DA 
*(20 .1*16 
*DATA(20, 
IF  (  LO 


-  1)  *  20  +  1 

I     )  =  ACON  (  4,  1,10) 

1  +  1  )  =  ACON  <  4,  2,10) 

1+  2)  =  ACON  (  4 .  6,10 ) 

1+  3)  =  ACON  (  4,  7,10) 

1+4)  =  ACON  (  4 ,  R,10) 

1+  5)  =  SCANR(  8,17,  2) 

1+  6)  =»  SCANR(  8,25,  1) 

1+  7)  =  SCANR(  6,32,  1) 

1+  8)  =  SCANR(  8,33,  1 ) 

1+9)  =  SCANR(  8,34,  1) 

1+10)  =  SCANR(  8,35,  1) 

I  + 1 i  >  ■  SCANR <  8,36,  I) 

1+12)  =  5CANR(  8,37,  1> 

1+13)  =  SCANR(  8,39,  1) 

1+14)  =  SCANR(15,10,  1) 

1+15)  =  SCANR(15,19,  1) 

1+16)  =  SCANRdS,S2,  1) 

1+17)  =  SCANR(15,53,  1) 

1+13)  =  AVRGA 

1+19)  =  AVRCB 

I  .105)  DATA(20,I+7>  .DAT A (20 ,1+8)  ,DATA(20 ,1 »2> , DATA( 20 , I +3 ) 

,I+4),JJ,DATA(20,I+9),DATA(20,I+i0>,DATA(20,I+16>, 

1  +  13)  , DAT A (20, I +  14)  .DAT A (20,1+11)  ,  DAI A( 20 , I +12 )  , 

1+17), DATA (20, 1+5), DATA (20, 1+15) 

1.112)  AVRGA, AVRGB 

NE.  0  )  WRITE  (1.0,105)   DATA(20  ,1+7)  ,  DATA< 20 , 1+8 >  ,DATA(20 
TA(20, 1+3) .DAT A (20 . 1+4) , J J, DAT A (20 , 1+9) , DATA (20, 1  +  10  > ,DATA 
)  ,  DATA (20  ,1  +  13)  , DAT A (20, 1  +  14)  , DAT A (20 , 1+il > , DATA (20 , 1+12)  , 
I +  17), DATA (20 ,1+5) , DATA (20 , 1  +  15) 
.NE.  (S  )  WRITE  (L0,112>  AVRGA, AVRGB 


11 


12 


13 


Next  yaw  position. 


09  CONTINUE 
J  =  81 
GOTO  02 

10  CONTINUE 


Release  interface  bus  and  devices  fron    renote  control 


CALL 

CLEAR   (7,1) 
LOCL      (7) 

CALL 

DO  11 

I  =  1,4.1 

=  ( 1-1)  *  20 

J 

+ 

17 

X(I) 

=  DATAd,  J) 

JJ 

=  J  -  3 

Y(I) 

=  DATAd  ,  JJ) 

CALL 

CURVE  (4 ,X , Y  .SLOPE, SECON) 

DATA( 1 

,160)  =  SLOPE 

DATA( 1 

.  161 )  »  SECON 
I  =  1,4,1 

DO  12 

J 

=  ( t-1 )  *  20 

+ 

18 

X<I) 

=  DATAd  ,  J) 

JJ 

=  J  -  4 

Y(I) 

=  DATAd  ,JJ) 

CALL 

CURVE  (4,X  ,Y  .SLOPE, SECON) 

DATA( 1 

,170)  =  SLOPE 

DATA< 1 

,171)  =  SECON 

DO  13 

*  =  ^i4,1 

J 

=  (  l-l )  »  20 

+ 

97 

X(  I  ) 

=  DATA(  1  .  J  ' 

JJ 

=   T   -  ~ 

r<i) 

=  DATA<  1  ..1  J^ 

Figure  H-2. 


Listing   of   Data  Acquisition  Program    &ABKUL 
(Continued   on   next   page.) 
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(1119         CALL   CURVE  (  4.  X  ,Y  .SLOPE  ,  SECON  ) 
0320  DATA( 1,180)  =  SLOPE 


0321  DATAd, 191)  =  SECON 

0322  DO  14  1  =  1,4,1 

0323  J        =  (  1-1)  *  20  ♦  9(3 

0324  X(I>     =  DATAd,  J) 

0325  JJ       -  J  -  4 

0326  14   Y( I >     =  DATA( 1 , JJ) 

0327  CALL   CURVE  ( 4 ,X ,Y , SLOPE , SECON ) 

0328  DATAd, 190)  =  SLOPE 

0329  DATAd,  191)  =  SECON 

0330  URITE  (LI. 110)  (  DATA ( 1 , I ) , DATA( 1 , 1+1  )  .  I  =  160,190,10) 

0331  IF(LO.NE.O)  URITE(LO,ll6>  (  DATA( 1 , I )  , DATA( 1 , 1  +  1 )  , I  =  160,190,10) 

0332  URITE  (LI,  111) 

0333  READ   (LI,!49*  IFILE 

0334  CALL   CREAT  ( IDCB , IERR , IFILE , ISIZE , ITYPE , ISECU , ICR , IDCB5 ) 

0335  II  =  1 

0336  IF  (  IERR  . LT .  0  )  URITE  (1,1111)  II, IERR 

0337  CALL   OPEN  ( I DCB , IERR , IF ILE , IOPTN, ISECU , ICR , IDCPS > 

0338  II  =  2 

0339  IF  (  IERR  .LT.  0  )  URITE  (1,1111)  II, IERR 

0340  CALL   URITF  ( IDCB , IERR , DATA  ,  IL ) 

0341  II  =  3 

0342  IF  (  IERR  .LT.  0  )  URITE  (1,1111)  II, IERR 

0343  CALL   CLOSE  ( IDCB  ,  IERR , 0 ) 

0344  II  =  4 

0345  IF  (  IERR  .LT,  0  )  URITE  (1,1111)  II, IERR 

0346  STOP  7777 

0347  END 


Figure  H-2.   Listing  of  Data  Acquisition  Program  &ABKUL 
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APPENDIX    I 
PROCESSING   PROGRAMS    &SPLIT   AND    &WAVE    FOR   TEST    DATA 

As  stated  in  6.3a  plot  of  the  acquired  high  speed  data  is 
very  desirable  since  it  represents  the  fastest  way  to  judge  the 
quality  of  the  data.   As  the  graphics  software  requires 
much  storage  space  within  a  program,  it  is  not  possible  to 
read  the  complete  data  file  into  a  plot  program.   A  utility 
program — &SPLIT — has  been  created  which  splits  the  data  array 
into  two  smaller  arrays  containing  either  A  or  B  probe  data. 
These  arrays  contain  the  data  for  the  on-line  calibration  and 
steady  state  also.   They  are  both  stored  under  different  names, 
which  are  operator  input. 

Since  program  &SPLIT  is  a  very  short  and  simple  program, 
only  a  listing  is  given  in  Fig.  1-1.   Explanations  are  given  as 
needed  within  the  listing.   The  two  newly  created  files  are 
stored  on  the  same  cartridge  as  the  original  raw  data  file. 

Program  &WAVE  provides  means  to  read  the  smaller  data  files 
and  to  plot  their  contents.   If  the  variable  POS  is  assigned  to 
be  the  circumferential  position  of  the  probe  readings  where  the 
starting  position  is  set  to  1  and  the  end  position  to  256,  the 
pressure  distribution  can  be  expressed  as  a  function  P  =  P (pos) 
for  all  nine  yaw  angles.   These  functions  can  be  plotted  by 
program  &WAVE .   The  plot  is  a  straight  line  connection  of  all 
points . 
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As  mentioned  in  6.3   program  &WAVE  serves  two  purposes: 
plotting  Kulite  data  from  an  existing  file  and  acquiring  data 
from  any  of  the  16  A/D  channels  and  plotting  it  right  away. 
The  decision  as  to  which  of  the  two  options  shall  be  used  has 
to  be  made  first  by  the  operator.   If  it  is  desired  to  plot 
data  from  a  data  file,  the  operator  has  to  key  in  the  file 
name  and  the  cartridge  reference  number.   This  file  is  then 
read  into  a  data  array.   For  each  probe  yaw  angle  setting 
there  is  one  pressure  distribution  P  =  p  (PCS )  and  the  operator 
is  asked  to  specify  the  one  he  wants  to  plot.   The  choice  of 
plotting  on  the  CRT  screen  or  the  X-Y  plotter  has  to  be  made 
as  well  as  whether  a  whole  new  frame  for  the  plot  is  needed. 
Without  further  input  the  graph  is  developed.   Other  data  from 
the  same  file  can  be  plotted  without  rerunning  the  program  or 
it  can  be  stopped  at  this  point. 

If  the  second  feature  of  the  program  should  be  exercised, 
it  has  to  be  specified  at  the  very  beginning,  when  asked  for 
this  decision.   An  A/D  channel  number  has  to  be  entered  which 
corresponds  to  the  Kulite  transducer  that  shall  be  observed. 
The  number  of  samples  to  be  taken  at  each  of  the  256  positions 
also  has  to  be  put  in.   This  initializes  the  data  acquisition 
process.   Once  all  the  data  is  acquired,  the  operator  has  to 
decide  whether  he  needs  a  new  frame  or  not  and  where  he  would 
like  to  have  his  plot  (CRT  or  X-Y  plotter) .   As  soon  as  the 
plot  is  dumped,  the  program  can  either  be  stopped  or  started 
from  the  very  beginning. 
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Figure  1-2  shows  a  flow  chart  of  program  &WAVE ,  while  Fig. 
1-3  is  a  listing. 

Description 

Dummy  Variable 

A/D  channel  number 

Data  Array 

Calibration  factor  for  Kulite  probe 
reading 

Array  for  Kulite  sample  values 

Dummy  variable 

Cartridge  reference  number 

Data  control  block 

Data  control  block  length 

Dummy  variable 

Array  containing  file  name 

Graphics  control  block 

Total  number  of  words  stored  in  data 
file  (two  words  for  one  value) 

Security  code 

Array  to  specify  file  dimensions 

Type  of  data  file 

Input  device  number 

Output  device  (screen/plotter)  number 

Masking  variable 

Number  of  samples  to  be  averaged 


Variable 

Type 

AD 

Integer 

CHANL 

Integer 

DATA (11, 256) 

Real 

FSVLTG 

Real 

IBUFF(99) 

Integer 

IBUM 

Integer 

ICR 

Integer 

ID 

Integer 

IDCBQ44) 

Integer 

IDCBS 

Integer 

IDUM 

Integer 

IFILE(3) 

Integer 

IGCB(192) 

Integer 

IL 

Integer 

ISECU 

Integer 

ISIZE(2) 

Integer 

ITYPE 

Integer 

LI 

Integer 

LU 

Integer 

MASK 

Integer 

N 

Integer 
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Variable 

Type 

RBUFF 

Real 

RBUFO 

Real 

X(256) 

Real 

Y(256) 

Real 

Description 

Real  value  of  single  sample 

Sum  of  all  real  value  samples  for  one 
position 

Real  data  array 

Real  data  array 
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4SPLIT    T=O00U4    IS    ON    CR00026    USING    01)021     FiLKS    R  =  0()00 

0001  FTN4,L 

0002  PROGRAM  SPLIT<3,99> 

IJU03  C      

0  0  0  4  C 

0005  C      .    This  program  splits  the  large  data  file  as  created  by  proijnr 

0006  C      ,    ABKUL  into  two  separate  'lata  files. 

1)007  C      .    One  contains  the  uauefoms  of  tne  A-probe  and  the  other  the 

0008  C      .    one  fron  the  B-probe1 

0009  C 

0010  C       

0011  REAL     DATA<20  ,256)  ,DATA5<  11  .?r",6) 

0012  INTEGER  I  DCH  (  144  )  ,  IF  ILE  (  3  )  ,  [C  I  ZF  (  2  ) 

0013  DATA      I  I>i:HS    /   144/ 

0014  DATA      ISECU    /     00/ 

runs       data    ittpe   /    1/ 

0  016  DA  I A     If,  IZE(2)/   128/ 

0017  101  FORMAT("  ENTER  THE  MAMF  Of  THF  RAU  DATA  FI1E  :  ") 

0018  102  FORMA r<"  FNTFR  THE  CARTRIDGE  REFERENCE  NUMBFR :   " ) 

0019  103  FORHATC'  FNTER  THE  NAME  FOP  THC  FILE  CONTAINING  A-PROBE  DATA'") 

0020  104  FORMATC  TNTER  THE  NAME  FOR  THE  FILE  CONTAINING  li-l'ROBF.  DATA'") 

0021  149  FORMATC ( 3A2  ) i 

0022  1111  FORMA! <"  STATEMENT  #  :"I2"  ERROR  »  :  "14"  DISCOVERED'") 
11023  ISlZE(l)   =     80 

0024  IL         =  1U24U 

0  0  2S  C       

0026  C 

0027  C       .     READ  PAW  DATA  FILE  INTO  ARRAY  DATA(?0,2S6>   ! 
0  0  28  C 

0  0  2V  C       

0030  URITE  (1,101) 

1)031  READ   (  1  ,  149)  IFILE 

0  0  32         URITE  (1,102) 

0033  RFAD   (1,   «)  ICR 

0034  CALL  OPEN  '.  I  DCB  ,  IERR  ,  IFILE  ,  I  OP  T  N  ,  ISECU  ,  ICR  ,  IDCBS  ) 

0035  JJ  =  1 

0036  IF  (  IERR  .  LT .  0  )  URITE  (1,1111)  JJ,IF.RR 

0037  CALL  READF  ( IDCB, IERR , DATA , IL , LEN , 1 ) 

0038  JJ  =  2 

0039  IF  (IERR  .LT.  0  )  UP T TE ( 1  ,  1 1 1 1  )  JJ,IFRR 

0040  CALL  CLOSE  ( IDCB, IERR , 0) 
0  041  JJ  =  3 

'1042  IF  (IERR  .LT.  0  )  UR I  TE  ( 1  ,  1 1  1 1  >  JJ,IERR 

0  043  C       

0044  C 

0045  C       .     READ  A-PROBE  DATA  INTO  SEPARATE  ARRAY  . 
110  46  C 

0047  C       

Of'48 

0  0  49  DO  05      J  =  1 ,   9,1 

0050  DO  05      I  =  1*256,1 

0051  Jl  =   J  *  2 

0052  J?  =   J  ♦  1 

0053  DATAS(J2,I>  =  DATA(J1,I) 

0054  DATASl  1,1)  =  DATA(l  ,i> 

0055  05   DATASlll.I)  =  DATA(20,I) 

0056  ISIZE(l)     =    44 
0  0  57  IL  =  563.3 

0058  C       

005?  C 

1)060  C       .      RFAD  FILENAME  FOR  A-PROBE  DATA  AND  STORE  A -PROBE  DATA. 


U  0  6  1  C 

0062  C       

0063 

i;U64  UR  ITE  (1.103) 

0065  READ   ( 1 , 149)  IFILE 

Odoo  CALL   GREAT  ( I DCB  ,  T ERR  ,  IF  IL E  .  I S  I  ZE  ,  I  T YPE  ,  ISECU  ,  I CR  ,  IDCBS ' 

0067  JJ  =  4 

0068  IF  (TERR   LT.  0  )  URHF11  till)  JJ.-URR 

0069  CALL   OPEN  (  IDCB  ,  I  ERR  ,  I F  I  L.E  ,  I  OP  TN  ,  I  SECU  .  ICR  .  I  DCBr- ) 
007ii  JJ  =  5 

0071  IF  vIERR  .LT.  II  )  UR  I  TE  (  l  ,  1  1 1 1  >  JJ.IERR 

0072  CALL   URTTF  (  I  DCB  ,  I  ERR  .  DATA'S  ,  !  L  > 
0  073  J  j  =  f, 

U0'74  I)-  (IERR  .1.1.  ii  i  WRTTEtl  llll^  JT.ltPR 

0075  CALL   CLOSE  ( I TCB  .  IERR . 0 ) 

l)07f  J  J   -   " 

DO —  IF  iTERK   LT.  0  i  URITEC  1111'  J.'. IERR 

ntf-p  r  


Figure    1-1.       Listing  Program   to  Split  Up   Big   Raw  Data  Array  From  A-B   Probe 
Into   Smaller  Arrays:       SSPLIT. 
(Continued   on   next   page.) 
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0079 

r 

0080 

c 

0081 

c 

0082 

c 

0083 

0034 

0U85 

0086 

0  087 

0  0  88 

0  089 

0090 

c 

0  091 

c 

U092 

i; 

0093 

c 

0094 

c 

0  095 

0096 

0  0  97 

0098 

0099 

■J  too 

0101 

0102 

0103 

0104 

Q10S 

0  106 

0107 

'J  108 

0109 

0  110 

READ  B-PROBE  DATA  INTO  SEPARATE  ARRAY 


DO  07  J  =«  1  ,  9,1 
DO  07  1=1 ,2S6,1 
Jl  =   {.7*2) 

J2  J  ♦  1 

DATAS<J2,I)  =  DATA(Jl.I) 
DATASt 1   ,1)  »  DATAC1   ,1) 
07   DATAS(11,I)  =  DATA(20,I> 


READ  FILENAME  FOR  B-PROBE  DATA  AND  STORE  B-PROBE  DATA. 

ur  i+e'  '<  i ',  io4) 

READ   (1,149)  IFILE 

CALL   CREAT  ( IDCB  ,  IERR  ,  IF ILE , ISI ZE , ITYPE , ISECU , ICP , IDCBS ) 

JJ  =  7 

IF  (IEPR  ,LT.  O  )  URITE<1  .1111  )  JJ.ICRR 

CALL   OPEN  ( IDCB,  IERR, IFILE,IOPTN, ISECU, ICR, IDCFS) 

JJ  =  3 

IF  (IERR  -LT.  0  )  URITE(l.llU)  JJ.IERR 

CALL   WRITF  ( IDCB  ,  IERR , DATAS , IL ) 

JJ  ■  9 

IF  (IERR  .LT.  0  )  URITEd  ,1111)  JJ.IERR 

CALL   CLOSE  ( I DCB ,  IERR  ,  0 > 

JJ  =10 

IF  (IERR  .LT.  0  )  WRITEd ,1111)  JJ.IERR 

STOP  7777 

END 


Figure  1-1.   Listing  of  Program  to  Split  Up  Big  Raw  Data  Array  From  A-B  Probe 
Into  Two  Smaller  Arrays:   &SPLIT. 
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Figure  1-2.  Flow  Chart  of  Data  Acquisition  and  Plotter  Program  &WA 
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[read  A/1)  channel  I  i 


READ    NUhftER    OF    SAMPL 


READ    *    OF    Bl  ADEPAIiR 


ACQUIRE    DATA    FROrl    A/D 
USING    THE    PACER 


YES 


YFS 


J  P 1 .  Q  T  T    Ui  A  'J  F  F  ( )  R  M    A  c.    D  C  S  I  R  j  i) 


n  s 


NO 


C 


YES 


STOP 


J 


Figure    1-2.    Flow  Chart  of    Data   Acquisition  and   Plotter   Program    &WAVE 
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&UAUE   T=00004  IS  ON  CR00027  USING  00022  BLKS  R=0000 


0001 
0002 
0003 
0004 
O00S 
0006 
0007 
0008 
0009 
U010 
OOli 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0  0  27 
0  0  28 
0029 
0030 
0031. 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 


FTN4,L 

C 

c 
c 
c 

c 
c 
c 
c 


PROGRAM  WAVE  (3,99) 


This  is  program  WAVE 

It  plotts  waveforms  as  read  from  either  t 

a  data  file  created  using  test  data  from  the  TX-c oppressor 

or  from  a  specified  AD  channel  right  away. 


DATA( 11,256)  .  X ( 256 ) , Y (256) 

IDCB( 144)  ,  IFILEC3) , ISIZE(2>  ,N,CHANL 


DIMENSION  IGCB(192)XIBUFF(99) 

REAL 

INTEGER 

DATA  IDCBS  /  144/ 

DATA  ISECU  /  00/ 

DATA  ITYPE  /  1/ 

DATA  IL  /  5632/ 

DATA  ISIZE(l)  /  44/ 

DATA  ISIZEC2)  /  128/ 

DATA  MASK  /  177700B/ 

DATA  FSVLTG  /  .1E01/ 


100 


101 
102 
103 

104 


105 
107 
108 

113 

114 

115 


116 


149 
1111 


001 


FORMAT  ("  This  Is  program 

*  form  the  A/d  or  fron  a  d 

*  options  you  want1"/"  Key 
»ytninqe  lse "/"  will  ask  fo 

FORMAT  ("Enter  the  name  o 
FORMAT  ("Enter  the  cartri 
FORMAT("  Do  you  want  anot 

*  if  so,  anything  else  if 
FORMAT("  Do  you  want  to  s 

*"/"  If  you  are  going  to  s 

*  give  you  further  instruc 
FORMAT  </12X,5(2X  ,F10 .6)/ 
FORMAT("  Do  you  need  a  co 
FORMAT("  If  you  want  the 

*e  for  the  terminal  |M> 
FORMATC"  You  decided  to  t 

*  following  now  AD  chann 
FORMAK"  Number  of  repeti 
FORMAK"  Enter  the  corres 

tto  draw!"/"  The  arrangeme 

*  3  9-/ 
t,  .  DATA<  9,  J)   -    Probe  " 

FORMAK  "  Do  you  want  a  pi 
*Any  other  key  will  stop  t 
FORMAT  (<3A2)> 
FORMAT  ( "  STATEMENT  * 
LI  =  LOGLU(ISESSN) 
URITE  (LI, 100) 
READ  (LI, 149)  IDUM 
IF  (  IDUM  .EQ.  2HAD  ) 
URITE  (LI, 101) 
READ  (1.1,149)  IFILE 
URITE  (LI, 102) 
READ  (LI,  *)  ICR 
CALL  OPEN  (IDCB.IERR 
JJ  =  1 

IF  (IERR  .LT.  0  )  URI 
CALL  READF  (IDCB.IFRR 
J  J  ■  2 

IF  (IERR  .LT.  0  )  URI 
JJ  =  3 
CALL  CLOSE  ( IDCB , IERR  ,  0 ) 


WAVE . '/"  It  can  plott 
ata  file."/"  Decide  now 

AD  if  you  want  to  take 
r  further  informations 
f  the  data  file!") 
dge  ref.  number'") 

her  waveform  to  be  plotted'*/"  Enter  yes, 
not  <  "> 


a  wave  for 

,  wh ich  o 

a  new  re 

for  a  dat 


m  as  read 

f  the  two 

ad ing  .  An 

f  lie  .  •') 


top  this  program  or  plo 
top  it,  just  key  STOP. 
1 1  ons '  "> 

5X.I2,SX,S(2X,F10.6)/12 
mplete  new  frame?"/"  An 
plott  on  the  plotter,  k 


t  some  mo 
Any  th  ing 

X,5<2X ,F1 
swer  YES 
ey  PL,  an 


re  waves? 
else  will 

0  .6)) 

or  NO ! " ) 
y  th  inge  Is 


a  waveform  from  the  AD'"/"Enter  the 


o  qe  t 

el*) 

tions,  bladepair  (1-9)  i") 

pondinq  number  for  the  waveform 

n t  is :  /"  Yaw  pos  #  1 

9X"  DATA(  1,J),  DATA(2,J),  DATA( 

/) 

ot  of  another  waveform?"/"  If  so 

he  pr  ogram  !  " ) 


you  want 
'      2 
3,  J)  ,  ... 

,  key  YE. 


'13"  ERROR  * 


GOTO  025 


"14"  DETECTED") 


,IFILE,IOPTN,ISECU, ICR ,IDCBS) 

TE  (LI, 1111)  JJ.IERR 
,DATA, IL,LEN, 1 ) 

TE  (LI  ,  1111)  JJ,  IERR 


005 


IF  (IERR  .LT.  0  \    WRITE  (LI, 1111)  JJ,IERR 
URITE  (LI, 115) 
READ   (LI,   *)  I 
II  =  I  ♦  { 
XK  =  1.0 
J 


010 


DO  010 

X(J) 

Y(J) 

LU 

ID 


1,256.1 
J  *  XK 
DATA( II , J) 
1 


=  1 


URITE  (LI, 107) 

READ  (LI, 149) 

URITE  (LI, 108) 

READ  (LI, 149) 


IDUM 
IBUM 


Figure    1-3 


Listing   of   Program   to  Plott   Raw  Data  Waveforms 
(Continued   on   next   page.) 


&WAVE 
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0079  IF  (IBUM  .EQ.  ?HPL  >  ID  =  2 

0060  IF  (ID    .EQ.  2     )  LU  -  13 

0081  CALL  PLOTR  < IGCB , ID , 1  ,LU ) 

0082  CALL  StTAR  (IGCB, 1.5) 

0083  CALL  VIEUP  ( IGCB  ,  20  .  ,  1  00  .  ,  20  .  ,  68  .  ) 

0084  CALL  UINDU  ( IGCB  ,  0 ., 256 ., -i . 0 ' 1 . 0 > 
3085  IF  (  IDUM  .NE.  2HYE  )  GOTO  01S 

0086  CALL  FXD    (IGCB, 2) 

0087  CALL  LGRID  ( IGCB , -16 .  ,  . 1 0 , 0 . 0 , 0 . 0 , 4 . , 2 .  , 1  .  > 

0088  015  CONTINUE 

008?  CALL  MOVE   ( IGCB  ,  X ( 1  )  ,  Y< 1 ) ) 

0090  DO  020  J  =  2,256,1 

0091  020  CALL  DRAW  ( IGCB , X ( J ) , Y ( J ) ) 

0092  WRITE  (LI, 103) 

0093  READ   (LI, 149)  IDUM 

1094  IF  (  IDUM  .EQ.  2HYE  )  GOTO  05 

0095  GOTO  050 

0096  025  WRITE  (LI , 113) 

0097  READ   (LI,   *)  ICHAN 

0098  WRITE  (LI, 114) 

0099  READ   (LI,   *>  N. IBLADE 

0100  ISTART    «  (IBLADE-1)  «  256  +  1 

0101  ISTOP     =  ISTART  ♦  255 

0102  II        =0 

0103  DO  035  I  =  ISTART, ISTOP, 1 

0104  II        =11+1 

0105  IBLADE    =  I  +  256   ♦  100000B 

0106  CALL  EXEC  (3,1?) 

0107  CALL  EXEC  ( 1 , 19 , IRPM.l , IBLADE ) 

0108  CALL  EXEC  ( 1 ,20  ,  I  BUFF , N , ICHAN , 0 ) 

0109  RBUFO  =  0.0 

0110  DO  030  I  =  l.N.i 

0111  IBUFF(J)  =  IAND( IBUFF( J) .MASK) 

0112  RBUFF     =  FLOAT( IBUFF< J> )/32768. 

0113  030  RBUFO     =  RBUFF  *  RBUFO 

0114  035  Y(I1)     =  ( (RBUFO*FSVLTG)/N) 

0115  LU  =  1 

0116  ID  =  1 

0117  WRITE  (LI, 107) 

0118  READ   (LI, 149)  IDUM 

0119  URITE  (LI, 108) 

0120  READ   (LI, 149)  I  BUM 

0121  IF  (IBUM  .EQ.  2HPL  )  ID  =  2 

0122  IF  ( ID    .EQ.  2     )  LU  =  13 

0123  CALL  PLOTR  ( IGCB , ID  ,  1  ,LU> 

0124  CALL  SETAR  (IGCB,  1.5) 

0125  CALL  VIEUP  ( IGCB  ,  20  .  ,1  00  .  , 20 .  , 68  .  > 

0126  CALL  UINDU  ( IGCB , 0 ., 256 .,- 1 . 0 . 1 . 0  ) 

0127  IF  (  IDUM  .NE.  2HYE  )  GOTO  040 

0128  CALL  FXD    ( IGCB, 2) 

0129  CALL  LGRID  ( IGCB  , -16  .  ,  .  1  0 , 0  . 0  ,  0  .  0 , 4  .  , 2  .  ,  1  .  ) 

0130  040  CONTINUE 

0131  CALL  MOVE   ( IGCB.1 ,Y(1) ) 

0132  DO  045  J  =  2.2S6.1 

0133  X( J)       =  J  «  1  .0 

0134  045  CALL  DRAU  (  IGCB, X ( J) , Y( J)  ) 
0135 

0136  050  WRITE  (LI, 104) 

0137  READ   (LI, 14?)  IDUM 

0138  IF  (  IDUM  .NE.  2HST  )  GOTO  01 

0139  STOP  7777 

0140  END 


Figure    1-3.       Listing   of  Program   to   Plott  Raw  Data  Waveforms:       &WAVE 


175 


APPENDIX  J 
DATA  REDUCTION  PROGRAM  &ABRED 

Program  SABRED  was  explained  almost  completely  in  chapter 
6.4.    More  detailed  explanations  shall  be  given  in  here 
where  they  are  needed.   Figure  J-l  shows  a  self-explanatory 
flow  chart  of  the  program  while  Fig.  J-2  is  a  complete 
listing. 

From  the  flow  chart  it  is  obvious  that  the  first  and  big- 
ger part  of  the  program  deals  with  overall  flow  measurements 
from  the  combination  probe.   The  data  reduction  of  these  mea- 
surements is  not  explained  since  Ref.  1  deals  with  this  in 
great  detail.   It  should  be  mentioned  that  the  raw  data  used 
for  the  combination  probe  data  reduction  is  the  average  of 
the  raw  data  which  was  acquired  along  with  the  acquisition  of 
any  set  of  Kulite  probe  data.   Thus  the  results  of  the  com- 
bination probe  represent  one  average  flow  vector  which  is 
assumed  to  be  constant  throughout  the  data  acquisition  pro- 
cess.  As  the  Kulite  data  used  for  the  on-line  calibration  is 
derived  from  the  whole  raw  data  acquired  also,  this  seems  to 
be  a  reasonable  way.   The  principle  of  the  on-line  calibra- 
tion was  described  in  chapter  6.1  already.   If  a  print-out 
of  the  control  parameters  was  chosen,  the  result  of  the  on- 
line calibration  will  be  displayed  in  the  form  of  a  linear 
equation  relating  A  and  B  probe  pressures  to  voltages. 
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The  results  of  the  on-line  calibration  are  first  applied 
to  the  dc-level  values  from  the  A  and  B  probe  in  order  to 
calculate  the  average  flow  vector.   Chapter  6.4  shows  the 
results  of  this  process.   The  procedure  used  to  derive  these 
values  is  in  principal  the  same  as  the  one  used  to  calculate 
flow  vector  quantities  for  the  individual  measurements.   In 
order  to  check  the  quality  of  the  data  reduction,  an  output 
of  the  A  and  B  probe  results  as  derived  from  their  approxima- 
tions can  be  produced.   The  yaw  and  pitch  angle  as  well  as 
Mach  number  are  derived  from  the  approximation  results  and 
printed  out.   These  values  can  be  compared  to  those  derived 
from  the  combination  probe  (see  6.4)  . 

Then  the  DO-loop  for  the  reduction  of  individual  data 
points  is  started  at  the  position  (I START)  determined  earlier. 
For  any  of  these  positions  the  results  of  the  on-line  calibra- 
tion is  applied  to  the  raw  data  first,  so  that  absolute  pres- 
sure values  exist.   The  data  reduction  procedure  as  described 
in  6.4  is  then  applied  to  these  values.   Using  the  local  Mach 
number  as  well  as  the  total  pressure  as  derived  from  the  A 
probe,  pressure  coefficients  Cp   are  derived  as  functions  of 
yaw  angle  and  can  be  printed  if  desired.   The  examination  of 
these  values  proved  to  be  very  helpful  in  the  evaluation  of 
the  quality  of  the  achieved  result. 

Since  the  A  probe  has  only  one  calibration  curve  Cp^  as 
a  function  of  yaw  angle,  as  long  as  the  pitch  angle  and  Mach 
number  do  not  exceed  the  range  of  the  calibration,  for  any 
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measured  position  the  same  curve  should  be  resolved.   The 
use  made  of  this  fact  so  far  is  described  in  chapter  7. 

When  the  DO-loop  for  all  described  positions  is  completed, 
the  reduced  data  is  stored  in  a  file.   Only  pitch  and  yaw 
angle  and  Mach  number  (  or  x  )  are  stored,  since  they  are 
sufficient  to  describe  the  individual  flow  vectors. 


Common  Block  Identifier 


DTA2 


Variable 


XI,  Y 


Variable 

Type 

AAO 

Real 

ABO 

Real 

ASL 

Real 

ASR 

Real 

BETA 

Real 

BETA2 

Real 

C0ECPB(7 

,7) 

Real 

C0EF(7) 

Real 

COEKP ( 7 , 

7) 

Real 

COEKX ( 7 , 

7) 

Real 

C0E0P(7, 

7) 

Real 

Description 

A  probe  yaw  angle  for  aligned  flow 

B  probe  yaw  angle  corresponding  to 
max.  probe  output 

A  probe  yaw  angle  63°  left  of  flow 
aligned  yaw  angle 

A  probe  yaw  angle  63°  right  of  flow 
aligned  yaw  angle 

Dimensionless  pressure  coefficient 

Relative  rotor  exit  flow  angle 

Data  array  for  coefficients  of  3-D 
CPOB  approximation 

Data  array  for  2-D  approximation 
coefficients 

Data  array  for  coefficients  of  3-D 
Kulite  pitch  angle  approximation 

Data  array  for  coefficients  of  3-D 
Kulite  Mach  number  approximation 

Data  array  for  coefficients  of  3-D 
combination  probe  pitch  angle 
approximation 
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Variable 


COEOX(7,7) 


CPA 

Real 

CPAMAX 

Real 

CPBMAX 

Real 

CP0A(6) 

Real 

DATA (20, 

,256) 

Real 

DEAMAX 

Real 

DEBMA 

DELTA 
DP 

DPA 


DPB 


DPX 

DX 

EAMAX 
EBMAX 


Type  Description 

Real      Data  array  for  coefficients  of  3-D 
combination  probe  Mach  number 
approximation 

Pressure  coefficient  from  A  probe 

Maximum  pressure  coefficient  from 
A  probe 

Maximum  pressure  coefficient  from 
B  probe 

Data  array  for  2-D  approximation  of 
A  probe  pressure  coefficients 


Data  array  containing  the  raw  data 

First  derivative  of  approximated 
function  EA  (voltage  A  probe)  of 
yaw  angle  for  maximum  of  EA 


Real  First  derivative  of  approximated 
function  EB  (voltage  B  probe)  of 
yaw  angle  for  maximum  of  EB 

Real      Pressure  coefficient 

Real      Pressure  difference  for  two  pressure 

values  corresponding  to  two  yaw  angles 
which  are  separated  by  DX 

Real     Difference  between  actual  A  probe 

pressure  and  value  derived  from  poly- 
nomial approximation  at  each  yaw 
position. 

Real      Difference  between  actual  3  probe 

pressure  and  value  derived  from  poly- 
nomial approximation  at  each  yaw 
position 

Real  First  derivative  of  the  function 
PA(a)  -  PA(a  -  Act) 

Real      Given  spread  in  yaw  angle  between 
PSAL  and  PSAR 

Real      Maximum  voltage  from  the  A  probe 

Real     Maximum  voltage  from  the  B  probe 
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Variable 

Type 

EQ3 

Real 

EQ5 

Real 

GAMMA 

Real 

ICR 

Integer 

IDCB(144) 

Integer 

IDCBS 

Integer 

IFILE(3) 

Integer 

IL 

Integer 

IPRINT 

Integer 

IPRIN1 

Integer 

ISECU 

Integer 

ISIZE(2) 

Integer 

ITYPE 

Integer 

ICLR(3) 

Integer 

LI 

Integer 

LO 

Integer 

NOLF 

Integer 

NOCR 

Integer 

PA  (9) 

Real 

PAA(9) 

Real 

PAB ( 9 ) 

Real 

Description 

CPOA  -  maximum  pressure  coefficient 

of  A  probe  (used  in  on-line  calibration] 

CPOB  -  maximum  pressure  coefficient  of 
B  probe  (used  in  on-line  calibration) 

Pressure  coefficient 

Cartridge  reference  number 

Data  control  block 

Control  block  length  (of  IDCB) 

Array  containing  file  name 

Total  number  of  words  read  from  data 
file  (two  words  for  one  value) 

Decision  variable  (control  parameters 
yes  or  no?) 

Decision  variable  (calibration  coef- 
ficients yes  or  no?) 

Security  code 

Array  to  specify  file  dimensions 

Type  of  data  file 

Command  to  clear  line  above  cursor 

Input  device  number 

Output  device  number 

No  line  feed  command 

No  carriage  return  command 

A  probe  pressure  values  from  indi- 
vidual measurements 

A  probe  pressure  values  from  averaged 
(dc-level)  measurements 

B  probe  pressure  values  from  averaged 
(dc-level)  measurements 
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Variable 
PAC(9) 
PAMAX 

PB(9) 


PBARO 

Real 

PBC 

Real 

PBMAX 

Real 

PHI 

Real 

PKB 

Real 

PREF 

Real 

PREFP (9) 

Real 

PSA 

Real 

PSAL 

Real 

PSAR 

PS  TAT 
PS TATA 

PTOTAL 
POA 

POB 


Type  Description 

Real      Calculated  values  of  A  probe 

Real     Maximum  pressure  value  of  A  probe 
output  as  function  of  yaw  angle 

Real      B  probe  pressure  values  from  indi- 
vidual measurements 

Barometric  pressure 

Calculated  values  of  B  probe 

Maximum  pressure  value  of  B  probe 
output  as  function  of  yaw  angle 

Pitch  angle 

Maximum  absolute  average  value  of  B 
probe  pressure 

Average  value  of  Kulite  reference 
pressure 

Array  of  reference  pressures  for  all 
9  independent  yaw  positions 

Static  pressure  equivalent  of  A  probe 

Pressure  reading  of  A  probe  for  a  yaw 
angle  63°  to  the  left  of  the  flow 
aligned  yaw  angle 

Real      Pressure  reading  of  A  probe  for  a  yaw 
angle  6  3°  to  the  right  of  the  flow 
aligned  yaw  angle 

Real      Static  pressure 

Real      Static  pressure  minus  Kulite  reference 
pressure 

Real      Total  pressure 

Real     Maximum  pressure  output  of  A  probe 
(on-line  calibration) 

Real     Maximum  pressure  output  of  B  probe 
(on-line  calibration) 
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Variable 

Type 

PI 

Real 

P23 

Real 

P4 

Real 

RAD  IS 

Real 

RDATA (3,256) 

Real 

RPM 

Real 

SECTA 

Real 

SECTB 

Real 

SLOPEA 

Real 

SLOPEB 

Real 

TT2 

Real 

U 

Real 

XM 

Real 

XU 

Real 

XVEL 

Real 

XO 

Real 

Xl(256) 

Real 

Y(256) 

Real 

YAW 

Real 

YAWA ( 9 ) 

Real 

YAWB ( 9 ) 

Real 

Description 

Pressure  values  of  combination  probe 

Radius  of  probe  tip  location 

Reduced  data  array 

Compressor  speed 

Intercept  A  probe 

Intercept  B  probe 

Slope  A  probe 

Slope  B  probe 

Total  temperature  at  rotor  exit 

Circumferential  rotor  speed 

Mach  number 

Dimensionless  circumferential  rotor 
speed 

Mach  number  equivalent  dimensionless 
speed 

Starting  value  for  the  iteration  to 
find  PSAL  and  PSAR 

Data  array  for  2-D  approximations 

Data  array  for  2-D  approximations 

Yaw  angle 

Array  containing  A  probe  yaw  angles 

Array  containing  B  probe  yaw  angles 
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(start) 


SPECIFY  INPUT/OUTPUT  DEVICES 


YES 


IPRINi=YE 


|  r  P  R I  NT  =YE   j 


'PINT  COEFFICIENT  FILE: 


READ  PAW  DATA  FILE 
INTO  ARRAY  DA TA ( 20 . ?S6 


READ  DESIRED  START  AND 
STOP  VALUE  FOR  REDUC- 
TION DO  LOOP:  ISTART . ISTOP 


REDUCE  COMBINATION  PI* QBE 
DATA  TO  AVERAGE  FLOW 
VECTOR  QUANTITIES 


JPRINT  COMBINATION  PROBE  RESULT 


Figure  J-l.  Flow  Chart  of  Data  Reduction  Program  SABRED 
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APPROXIMATE  DC-VOLTAGES 
3F  A-PROBE  AS  FUNCTION 
DF  YAUANGLE 


CALCULATE  MAXIMUM  VALUE  01- 
APPROXIMATFD  CURVE  :  EAMAX 


CALCULATE  OPOA  FROM  THE 
PITCHANGI.E  DERIVED  FROM 
THE  COMBINATION  PROBE 


CALCULATE  PAMAX  USING  CPOA 
PTOTAL  AND  PSTATIC  FROM 
THE  COMBINATION  PROBE 


DERIVE  THE  A-PROBE  INTERCEPT 
FROM  PAMAX. EAMAX  AND  THE 
SLOPE  ESTABLISHED  IN  THE 
ONLINE  CALIBRATION 


YES 


NO 


PRINT  THE  A-PROBE 

VOLTAGE/PRESSURE 

CORRELATION 


APPROXIMATE  DC-VOLTAGES 
DF  B-PROBE  AS  FUNCTION 
OF  YAUANGLE 


CALCULATE  MAXIMUM  VALUE  OF 
APPROXIMATED  CURVE  :  EBMAX 


Figure  J-l.  Flow  Chart  of  Data  Reduction  Program  SABRED. 


con' t 


184 


CALCULATE  CPOB  FROM  THE 
PITCHANGLF  AND  MAUHNUM- 
8ER  DERIVED  FROM  THE 
COMBINATION  PROBE 


CALCUIATE  PBMAX  USING  CPOB 
PTOTAL  AND  PSTATIC  FROM- 
THE  COMBINATION  PROBE 


DERIVE  THE  B-PROBE  INTERCEPT 
FROM  PBMAX.EBMAX  AND  THE 
SLOPE  ESTABLISHED  IN  THE 
DNLINF  CALIBRATION 


YES 


PRINT  THE  ft-PROBI 
VOLTAOF/PRFSSURE 
f ORRELATION 


CALCULATE  PRESSURE  VALUES 
FOR  A-  AND  B-PROBE  FROM 
DC-VOI  . TACFS  FOR  ALL  YAW- 
POSITIONS,  USING  THE  RE- 
SULTS OF  THE  ONLINE 
TAI.  TBRATTUN 


YES 


PRINT  A-  AND  B-PROBF 
PRESSURE  VALUES  AND 
CORRESPONDING  YAWANGL ES 


Figur 


e  J-l.  Flow  Chart  of  Data  Reduction  Program  &ABRED. 

con' t 
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APPROXIMATE  THE  A-PROBE  PRESSURE 
VALUES  AS  A  FUNCTION  OF  YAW ANGLE 


CALCULATE  PRESSURE  VALUES  PAMAX, 
PSAL.PSAR  AND  CORRESPONDING  YAW- 
ANGLES  FROM  APPROXIMATED  CURVE. 


PRINT  RESULTS  FROM 
A-PROBE  EVALUATION 


APPROXIMATE  THE  B-PROBE  PRESSURE 
VALUES  AS  A  FUNCTION  OF  YAWANGLE 


ALCUI  ATE  THE  MAXIMUM  PRESSURE  VALUE 
5BMAX  FROM  APPROXIMATED  CURVE  AND 
THE  CORRESPONDING  YAWANGLE 


YFS 


NO 


PR [NT  RESULTS  FROM 
ft -PROBE  EVALUATION 


a 


DERIVE, 

/and^ 


PRESSURE  COFFFICIENTEN 
FROM  PSACPSAR  AND  PBMAX 


CALCULATE  MACHNUMBER  AND 
PITCHANGLE  FROM^ANDT 


PRINT  RESULTS  OF  AVERAGE 
VALUE  DATA  REDUCTION 


Figure  J-l.  Flow  Chart  of  Data  Reduction  Program  SABRED 


con' t 
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CALCULATE  ACTUAL  YAW  POSIT  TONS  AND 
REFERENCE  PRESSURE  VALUES  OF  A-  AND 
B-PROBE  FOR  ALL  YAWANGLE  SETTINGS  (9) 


DO  270  I=ISTART, IEND, i 

(I  IS  INDIVIDUAL  POSITION 

CIRCUMFERRENTIALLY) 


CALCULATE  ABSOLUTE  PRESSURE  VALUES 
FROM  RAW  A -AND  B-PROBE  DATA  USING 
VH^-'    ONLINE  CALIBRATION  RESULTS 


APPROXIMATE  A-PROBE  PRESSURE  VALUES 
AS  FUNCTION  OF  YAWANGLE  AND  CALCULATE 
VALUES  PAC  USING  THE  APPROXIMATION  FOR 
THE  ACTUAL  YAWANGI.  ES       '   


CALCULATE  VALUES  P AMAX ,P8AL ,PSAR  AND 

CORRESPONDING  YAWANGLES  FROM  APPROX! 
MATED  CURVE  PA  =  PAt  YAW'' 


CALCULATF  #   AND  CPAMAX  FROM 
A-PROBE  APPROXIMATION  RESUI  T 


YES 


PRINT  RESULTS  OF 
A  -PROBE  EVAI  UA'I  ION 


9: 


APPROXIMATE  B-PROBE  PRESSURE  VALUES 
AS  FUNCTION  OF  YAWANGLE  AND  CALCULATE 
VALUES  PBC  USING  THE  APPROXIMATION  FOR 
THE  ACTUAL  YAUANGLES 


Figure  J-l.  Flow  Chart  of  Data  Reduction  Program  SABRED. 
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& 


CALCULAiF  THE  DIFFERENCES 
BETWEEN  THE  ORIGINAL  A~  AND 
B-PROBE  DATA  AND  THF  APPROXI- 
MATED DATA. 


PRINT  THE  ORIGINAL.  VALUES,  THE 
APPROXIMATED  ONES  AND  THE 
DIFFERENCES  FOR  A-  AND  B-PROBE 


DERIVE  THE  MAXIMUM  OF  THE  APPROXIMATED 
B-PROBE  PRESSURE  CURVE  PBMAX 


|   CALCULATE  jT  FROM  P AhAX  ,  P BttAX  AND  PSA 


YES 


PRINT  RESULTS  OF 
B-PROBE  EVALUATION 


APPLY  CALIBRATION  TO/  AND  <T  AND 
DERIVE  MACHNUMBER   AND  PITCHANGLE 


»  YES 


<>    <>     A 


Figure  J-l.  Flow  Chart  of  Data  Reduction  Program  SABRED. 
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^> 


CALCULATE  AND  PRINT  THE 
STATIC  PRESSURE  USING  PAtfAX 
AND  THE  MACHNUMBER 


CALCULATE  CPA  USING  THE 

ORIGINAL  PRESSURE  UAl  UES 

PA  TOTAL-  AND  STATIC  PRESSURES 


SUBTRACT  THE  CALCULATED 
FLOW  YAWANGEL  «  A B H  )  FROM 
ALL  YAWANuLES 


PRINT  THE  CALCULATED  YAW- 
ANCLES  AND  THE  CORRESPONDING 
CPA  'VALUES  FOR  ALL  YAWANGI..ES 


CALCULATE  pz 


X 


PRINT  FINAL  RESUL  TS 


ASSIGN  nACHNUMBER  .  P  I  TCHANGl.F 
AND  YAWANGLE  TO  DATAARRAY  RDATA 


{READ  I-  LLP  NAHE  FOR*  REDUCED  DATA  FII  F.| 


CREATE  DATA  FILE  ANDSTORE 
ARRAY  RDATA  INTO  FILE 


c 


STOP 


) 
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SABRED  T=00004  IS  ON  CR00027  USING  00142  BLKS  R=0000 

0001  FTN4.L 

0002  PROGRAM  ABRED  (3,99) 

"003  C      

1004  C 

3005  C      .      THIS  IS  PROGRAM  ABRED( uc t i on )  FOR  THE  A-B  PROBE  SYSTEM. 

1006  C 

3007  C       .   IN  THIS  VERY  VERSION  THE  PROGRAM  13  SET  UP  FOR  THE  NEW  A-B-   . 

0008  C         PRObES  (0.063"  O.D.,  SCREEN  WITH  HOLES  ON  A  CIRCLE  ). 

3  0  09  C       . 

1010  C       .   IF  ANY  OTHER  PROBES  (KULITE  AS  WELL  AS  COMBINATION  PROBE) 

:C11  C      .   SHALL  BE  USED,  THE  CORRECT  FILE  NAMES  FOR  THE  COEFFICIENT 

0012  C  .   FILES  HAVE  TO  BE  PUT  IN  : 

0013  C 

0014  C  .   FILE  ♦   CONTAINS  APPROX.  COEFFICIENTS:      DATA  ARRAY  NAME 

0015  c 

0016  C  .  1  KULITE  PROBES  MACHNUMBER  COEKX 
.1017  C  .  2  KULITE  PROBES  PITCHANGLE  COEKP 
0018  C  .  3  KULITE  PROBES  CP0B  COECP 
•1019  C  .  4  COMBINATION  PROBE  MACHNUMBER  COEOX 
'1020  C  .  S  COMBINATION  PROBE  PITCHANGLE  COEOP 
1021  C 

0022  C  

0023  COMMON  /  DTA2  /  XI,  Y 

1024  REAL  DATA(20,2S6> ,X1(256>     ,  Y  (  256  >  .COEF  <  7) 

0025  REAL  C0E0X(7,7)   , COEOP ( 7 ,7 ) , COEKX (7 ,7 ) , COEKP ( 7 .7) , COECPB ( 7 , 7) 

0026  REAL  PAA<9)      ,PAB(9)      ,YAUA(9)     ,YAUB(9> 

0027  PEAL  PA(9)       ,PB(9)       ,PACC9)      ,PREFP<9) 

0028  REAL  RDATA(3,2S6> 

0029  DIMENSION  CP0A(6) 

1030  INTEGER             IDCBC 144 )  .  IFIL E  (  3 )  ,  ISIZE ( 2 ) 

0031  INTEGER  NOLF . NOCR < 2 ) , I CLR < 3 > 

0032  DATA   CPOA(l)  /  1.0025921  / 

0033  DATA   CP0A(2)  /  0 . 03S647S  / 

0034  DATA   CP0AC3)  /  -.2724224  / 

0035  DATA  CP0A(4)  /  0.9320285  / 
3036  DATA  CP0A(5)  /  -2.333180  / 
0037  DATA  CP0A<6)-  /  0  .  ftoOOOOO  / 
3038  DATA   IDCBS        /        144  / 

59^3  BSTS  1£\!$E                   ^015S24B,o{5515B,006S37B  / 

0041  DATA   NOLF          /    006S37B  / 

)042  300  FORMAT  ("  OUTPUT  INPUT  DATA  TO  ANY  OTHER  DEVICE?   ENTER  NO 

.1043  *  OR  LU*  j  "/"   "A2> 

::U44  305  FORMAT  (12) 

0045  310  FORMAT  (  "  DO  YOU  WANT  AN  OUTPUT  OF  THE  CALIBRATION  COEFFICIENTS?" 

0046  »/"  ENTER  YES  IF  SO  OR  ANYTHING  ELSE  IF  NOT'-/"     "A2) 

0047  31S  FORMAT  <  "  DO  YOU  WANT  AN  OUTPUT  OF  THE  CONTROLL  PARAMETERS?"/"  KE 
f!048  *Y  YES  IF  SO  OR  ANYTHING  ELSE  IF  NOT'"/"     "A2> 

»U49  320  FORMAT  (//"  THE  DATA  READ  FROM  FILE  "3A2"  ARE"/) 

1050  325  FORMAT  ("  I  ZTT — "IU,5il^J 

0051  330  FORMAT  ("  " 13 , 7 ( IX  ,  Fi i  .  6)  ) 

0052  335  FORMAT  ("  ENTER  RAU  DATA  FILE'"// 

01)53  *"  DON'T  FORGET  SECURITY  CODE  &  CARTRIDGE  REFERENCE  NUMBER'"/ 

0054  *"  ;    !   "A2) 

0055  340  FORMAT  ( ( 3A2 ) , IX , 12, 1 X , 12 ) 

.'056  345  FORMAT  ("  ENTER  THE  NUMBER  OF  THE  START  AND  END  POSITION  : " / 

0057  *"         "A2) 

3058  350  FORMAT  (13, IX, 13) 

''059  355  FORMAT  ("  i(l**iiliii*(nt)iti««ii»iin<ti<«><inmi(mti(<ii 

'060  «"  RAU  DATA  FILE  :  "3A2"::"I3                                          // 

jOol  *          "  iti«iini(iiiiill«iuiiiiitiiii*urti>iiiiiiu»irii(i 

J062  360  FORMAT(/"  FLOW  AVARAGED  VALUES  AS  ESTABLISHED  WITH  THE  COMBINATION 

1063  *  PROBE"//"   PtOTOKINCH  H20  )  PsraT  i  c  <  INCH  H2U  )  "  6X  "Xue  1  "6X  "Mach  "2X  " 

.'064  »Ph± (deq) "2X"Yaw(dag)"/2(5X .F13.6) ,2(2X,F8. 5) ,2(3X,F7. 2)/) 

D065  365  FORMAT  ( "  EQUATION  FOR  A-PROBE  PRESSURE  :"/"  PA  =  "F12.6"  +  "  F12. 

0066  t6"  *  VOL TAGE(rau)*0. 01  +  PREFdNCH  H20>") 

0067  370  FORMAT (  "  CP0A  =  "FiO.S"  CP0B  =  "F10.7) 

068  375  FORMAT  ("  EQUATION  FOR  B-PROBE  PRESSURE  :"/"  PB  =  "F12.6"  «-  "  F12. 

069  *6"  *  VOLTAGE(raw)*0. 01  +  PREFdNCH  H2D)") 

.070  380  FORMAT      (/"  *   PAA(#>   PAB(#)  YAUA(#)  YAUB(*)"/) 

0071  38S  F0RMAT(I2,4( 1X.F7.5) > 

J072  390  FORMAT("  A-PROBE  APPROXIMATION  RESULTS  :  YAU  =  "3 ( SX , F9 . 2 > /16X "  PR 

0073  HESSURE  (INCH  H20)  =  "3 ( 3X , Fl 1 . 6 ) /29X  "  CPAMAX  =  "F8.4/) 

ftfl?4  395  FORMAT*/"  b-PROBE  APPROXIMATION  RESULTS  :  YAU0  =  "F5.1"  PRESSURE 

">075  *(INCH  H20>  ="Fb.2//> 

1076  400  FORMAT("  AVERAGE  VALUE  RESULTS  FROM  THE  A-B  SYSTEM :"  //SX "BETA"  4X "G 

3  0  7"  *AMMA"5X"Xwel "4X"°iTch "6X "Yau"7X "XU"6X "XAX "4X "BETA2"/3 ( F9 . 5) ,2(2X.F 

.'0"S3  *7  .2)  ,2(F9  .5)  .2X  ,F?  .  2> 
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'.080  4°S»x°BeTA-'"')////////"  POS»"6X"Beta"sx"G':",','3"fax"Xl'el"5X"Pitch-7X"Yau"S 

00B1  410  FORMAT^""  *    YAUA(I)      PA(I)     P AC < I  )         DPA    YAUB(I)      P 

0083  *B(I)     PBC<I>        DPB") 

3033  415  FORMAT< 12 ,8(3X,F7 .S> > 

'!084  420  FORMAT  (/*   PSTATIC  (DERIVED  FROM  PAMAX  AND  XVEl  )  =  "F8.3/> 

008S  425  FORMAT  C    *   ACTUAL  YAU  ANGLE       CPA") 

'1086  430  FORMAT  (  I  4  ,  12X  .  F6  .  2  ,  3X  ,  F6  .  3  ) 

0087  435  FORMATC IS,3(Fl6 .5) ,3(3* ,F7.2> > 

U0S8  440  FORMAT("  ENTER  THE?  NAME  FOR  THE  FILE  CONTAINING  REDUCED  DATA'"/ 

3089  *-  DON'T  FORGEI  SECURITY  CODE  f.    CARTRIDGE  REFERENCE  NUMBER!"/ 

3090  t"  :    i   "A3) 

■391  445  FORMAT  <//"  REDUCED  DATA  STORED  IN  FILE  t  "3A2" : " 12 ) 

0U92  llll  FORMAT  ("  STATEMENT  *  "14"  ERROR  •  i  "F12 .  2  "DETECTED  "> 

0093  1149  FORMAT  (<3A2>) 

^094  LI  =  LOGLU( ISESSN) 

C09S  005  WRITE  (LI,  300)  NOLF 

0096  READ   (LI, 1149)  IDUM 

0097  URITE  (LI, 1149)  (ICLR,I11=  1.2) 

0098  IF  <  IDUM   .EQ.   2HN0  )  GO  TO  010 
J  099  CALL  CODE 

-MOO  READ   (IDUM.30S)  LO 

0  101  IF  (  LO   .EQ.    1  )  GO  TO  015 

U102  IF  (  LO   .EQ.    6  )  GO  TO  015 

01U3  IF  (  LO   .EQ.   18  )  GO  TO  01S 

0104  GO  TO  0  05 

0105  010  LO  =  0 

0106  015  IF  <  LO   .EQ.   LI  >  LO  =  0 
1107  URITE  (LI,  310)  NOLF 

ul08  READ   (LI, 1149)  IPRIN1 

0109  URITE  (LI, 1149)  ( ICLR , 1 1 1  =  1 , 3 ) 

0110  URITE  (LI,  315)  NOLF 

01 1 1  READ   (LI, 1149)  IPRINT 

0112  URITE  (Ll,1149)  (ICLR, 111  =  1,3) 

0113  C  

:il4  C      . 

0115  C  .   READ  COEFFICIENTFILE  FOP  THE  KULITE  MACHNUMBER  APPROXIMATION 

0116  C  .   FROM  DISC  INTO  ARRAY  C0EKX(7,7). 

0117  C  . 
3118  C 

0119  iFILE(i)  '= '2HMI 

0120  IFILE(2)  =  2HST 

0121  IFILE(3)  =  2HXV 

0122  ISECU     =  00 

0123  ICR  =  26 

;)124  CALL  OPEN   i  IDCB  ,  IERR  ,  IFILE  ,  ICPTN  ,  I5EC.U  ,  ICR  ,  IDCBS  ) 

0125  J  J  =  1 

3126  IF  <  IERR   .LT.   0  )  URITE  (LI, 1111)  JJ.IERR 

0127  CALL  READF  ( I DCB , IERR , COEK X , 98 , LEN, 1 ) 

0128  J J  =  2 

J129  IF  (  IERR   .LT.   0  )  URITE  (LI, 1111)  JJ.IERR 

0130  CALL  CLOSE  < IDCB  ,  I  ERR  ,  0  ) 

0131  J J  =  3 

0132  IF  (  IERR   .LT.   0  )  URITE  (LI, 1111)  JJ,IERR 

0133  IF  (IPRIN1  .NE.  2HYE)  GOTO  025 

•1134  C                 

J135  C 

j136  C                 .        OUTPUT     INPUT    DATA. 

0137  C      . 

:•  1 38  C     .• 

<39  URITE  (LI,  320)  IFILE 

■140  IF  (  LO   .NE,   0  )  URITE  ( LO ,  320)  IFILE 

U41  URITE  (LI,  325)  (11,11=1,7) 

142  IF  (  LO   .NE.   0  )  URITE  (LO,  325)  (11,11=1,7) 

0143  DO  020  11=1,7,1 

.144  IF  (  LO    NE.   0  )  URITE  (LO,  330)  1 1 , ( COEKX ( 1 1 , J 1 )  , Jl  =  l ,7  , 1  ) 

-145  020  URITE  (LI,  330)  1 1  ,  (COEKX ( 1 1 , J  1 ) , Jl  =  l , 7 , 1 ; 

146  C       

J147  c 

148  C         READ  COEFFICIENTFILE  FOR  THE  KULITE  PITCHANCLE  APPROXIMATION 

'149  C         FROM  DISC  INTO  ARRAY  C0EKP(7,7). 

i|0  C 

M  c  o2s  iiikii2r:'§H§T 

M54  IFILE(3)  =  2HFI 

.155  CALL  OPEN   (IDCB  ,  IERR  ,  IFILE , IOPTN , ISECU , ICR , IDCBS ) 

1S6  J J  =  4 

i^7  IF  (  IERR   .LT.   ,1  )  URITE  (LI, HID  JJ.IERR 

.MS8  CALL  READF  < IDCB , IERR , CGEK P , '3 . LEN , 1 ) 
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11S9         J J  =  S 

,160         IF  (  IERR   .LT.   0  )  URITE  (LI, 1111)  JJ,IERR 
3161         CALL  CLOSE  < IDCB, IERR , 0 > 
0162         J J  ■  6 

1163         IF  <  IERR   .LT.   0  >  URITE  (LI, 1111)  JJ.IERR 
0164         IF  (IPRIN1  .NE.  2HVE)  GOTO  035 

J 165  C      

31 66  C 

j167  C         OUTPUT  INPUT  DATA. 

3 1  68  C 

j 169  C      

U70         URITE  (LI,  320)  IFILE 

171         IF  (  LO    NE.   0  )  URITE  ( LO ,  320)  IFILE 
1172         URITE  (LI,  325)  (Ii,Il«l,7) 

3173         IF  <  LO   .NE.   0  )  URITE  ( LO ,  32S)  (11,11  =  1,7) 
:1174         DO  030  11  =  1,7,1 

3175         IF  (  LO   .NE.   0  )  URITE  (LO,  330)  1 1 , ( COEKP ( 1 1 , Jl ) , Jl  =  l , 7  ,  1  ) 
J176     030  URITE  (LI,  330)  1 1 , (COEKP ( 1 1 , Jl  )  , Jl  =  l , 7 , 1 ) 

177  C  ' 

J178  C 

3179  C  READ    COEFFICIENTF ILE    FOR    THE    KULITE    CP0B    APPROXIMATION 

3180  C  FROM    DISC    INTO    ARRAY    C0ECP(7,7). 
1181  C 

3182  C  

;183  035  IFILE(l)  =  2HMI 
3184  IFILE(2)  =  2HST 

1185         IFILE(3)  =  2HCP 

M86         CALL  OPEN   ( IDCB , IERR , IFILE , IOPTN , ISECU , ICR , IDCBS) 
3187         JJ  =  7 

'J188         IF  (  IERR   .LT.   0  )  URITE  (LI,  1111)  JJ  ,  IERR 
,189         CALL  READF  ( IDCB , IERR , COECPB , 98, LEN, 1 > 
190         JJ  =  B 

•191  IF  (  IERR   .LT.   0  )  URITE  (LI, 1111)  JJ.IERR 

3192         CALL  CLOSE  < IDCB , IERR , 0 ) 
;193         JJ  =  9 

"194  IF  (  IERR   .LT.   0  )  URITE  (LI, 1111)  JJ,IERR 

•195  IF  (IPRIN1  .NE.  2HYE)  GOTO  045 

•196  C      

3197  C 

1198  C         OUTPUT  INPUT  DATA. 

1199  C 

'200  C      

201         URITE  (LI,  320)  IFILE 

1202         IF  (  LO   .NE.   0  )  URITE  < LO ,  320)  IFILE 
3203         URITE  (LI,  325)  (11,11=1,7) 

:204  IF  (  LO   . NE .   0  )  URITE  (LO,  325)  (11,11=1,7) 

J205         DO  040  11=1,7,1 

:206         IF  (  LO   .NE.   0  )  URITE  (LO,  330)  1 1 , < COECPB( 1 1 , Jl > , Ji  =  l , 7  ,  1 > 
3207     040  URITE  (LI,  330)  1 1 , ( COECFB ( I i , J  1 ) , J  1  =  1 , 7 , 1  ) 

208  C       

•209  C 

210  C  READ  CQFFFICIENTFILE  FOR  THE  COMBINAT IONPROBE  MACHNUMBER 

;211  C  APPROXIMATION  INTO  ARRAY  COEOX ( 7  ,  7>  . 

'212  C 

}213  c      , 

:214  045  ICR '  '  '  '=  28'  ' 
T21S  IFILE(l)  =  2HCQ 
'216  IFILE(2)  =  2HEF 
!217  IFILE(3>  =  2H2X 
•218         CALL  OPEN   aDCB, IERR  , IFILE, IOPTN, ISECU, ICR , IDCBS) 

219  JJ  =  10 

220  IF  (  IERR   .LT.   0  )  URITE  (LI, 1111)  JJ,IERR 
.221          CALL  READF  ( I DCB ,  IERR , COEOX , 98 , LEN ,  1  > 

222  JJ  =  11 

223  IF  (  IERR   .LT.   0  )  URITE  (LI, 1111)  JJ,IERR 
■  224         CALL  CLOSE  ( IDCB , IERR  ,  0  ) 

1225         JJ  =  12 

■226  IF  (  IERR   .LT.   0  )  URITE  (LI, 1111)  JJ,IERR 

227  IF  (IPRIN1  .NE.  2HYE )  GOTO  055 

228  C       

:29  C 

230  C      .   OUTPUT  INPUT  DATA. 

231  C 

232  C      

:233         URITE  (LI,  320)  IFILE 

234  IF  (  LO   .NE.   0  )  URITE  (LO,  320)  IFILE 

235  URITE  (LI,  325)  (11,11=1,7) 

23b         IF  (  LO   .NE.   0  >  URITE  (LO,  325)  (11,11=1,7) 

237  DO  050  11  =  1, 7,1 

238  IF  i  LO   .NE.   0  >  URITE  ( LO .  330)  1 1 , ( COEOX ( 1 1  , J 1 )  .  J  1  =  1  , 7  ,  1  ) 


Figure  J-2.   Listing  of  Data  Reduction  Program  SABRED, 
(Continued  on  next  page.) 


192 


!239  050  WRITE  <LI,  330)  1 1 , (COEOX( 1 1  ,  Ji  )  . J  1  =  1 , 7 , 1 ) 

->40   C ! 

241  C 

'242  C      .   READ  COEFFICIENTFILE  FOR  THE  COMBINATIONPROBE  PITCHANGLE 

1243  C         APPROXIMATION  INTO  ARRAY  COE0P(7,7>. 

244  C       . 

.245  C      

.246  055  IFILE(l)  ■  2HC0 

247  IFILE<2>  «  2HEF 

?48  IFILE(3>  =  2H2° 

249  CALL  OPEN   ( IDCB  ,  IERR  ,  IFILE , IOPTN , ISECU , ICR , IDCBS ) 

230  JJ  =  13 

251  IF  (  IERR   .LT.   0  )  WRITE  (LI, 1111)  JJ,IERR 

.252  CALL  READF  ( IDCB , IERR , COEOP , 98 . LEN , 1 ) 

.253  J  J  =•  14 

1254  IF  (  IERR   .LT.   0  >  WRITE  (LI, 1111)  JJ,IERR 

255  CALL  CLOSE  ( IDCB , IERR  ,  0  ) 

256  JJ  =  15 

257  IF  (  IERR   .LT.   0  >  WRITE  (Ll.illi)  JJ,IERR 
J258  IF  (IPRIN1  .NE.  2HYE)  GOTO  065 

259  C  

260  C 

261  C  .   OUTPUT  INPUT  DATA. 
.'262  C 

263  C      

•2*>4  WRITE  (LI,  320)  IFILE 

,265  IF  (  LO   .NE.   0  )  WRITE  (LO,  320)  IFILE 

!266  WRITE  (LI,  325)  (11,11=1,7) 

267  IF  (  LO   .NE.   0  )  WRITE  (LO,  325)  (11,11=1,7) 

.258  DO  060  11=1,7,1 

.269  IF  (  LO    NE.   0  )  WRITE  ( LO ,  330)  1 1 , ( COEOP ( 1 1  ,  Jl ) , Jl  =  l ,7 , 1 ) 

270  060  WRITE  (LI,  330)  1 1 , ( COEOP ( 1 1 , J  1 ) , Jl  =  l , 7, 1 ) 

271 
•272 

273  065  WRITE  (LI,  335)  NOLF 

J274  READ   (LI,  340)  IF ILE , ISECU, ICR 

275  WRITE  (LI, 1149)  (ICLR,I1  =1,3) 

•276  IL        =  10240 

277  ISIZE(i)  =     80 

;278  ISIZE(2>  =    128 

279  CALL  OPEN   ( IDCB  ,  IERR  .  IFILE  ,  IOPTN , I SECU , ICR , IDCBS ) 

280  JJ  =  13 

281  IF  (  IERR  .LT.  0  >  WRITE  (LI, 1111)  JJ  ,  IERR 

282  CALL  READF  ( I DCB , IERR , DATA , XL , LEN, 1 ) 
•233  JJ  =  14 

294  IF  (  IERR  .LT.  0  >  WRITE  (LI, 1111)  JJ,IERR 

■235  CALL  CLOSE  ( IDCB , IERR , 0 ) 

.296  JJ  =  15 

287  IF  (  IERR  .LT.  0  )  WRITE  (LI, 1111)  JJ,IERR 

•288  WRITE  (LI, 345)  NOLF 

289  READ   (LI, 350)  ISTART  TEND 

-290  WRITE  (LI, 355)  IFILE. ICR 

291  IF  (  LO  .NE  .  0  )  WRITE  (L0.35S)  IFILE, ICR 

292  C  

293  C 

294  C  COMBINATION  PROBE  DATA  REDUCTION. 
:295  C 

296  C      

;297  PI        =0.0 

298  P23  =0.0 

299  P4  =0.0 

300  PREF  =  0.0 

301  RPM  =  0.U 
102  RADIS  =  0.0 
303  YAW       =  0.0 

104  TT2  =  0.0 

105  DO  070  I  =  1,9,1 

306  J  =  (1-1)  *  20 

307  PBARO     =  DATA(20  .J+7)»i  .  3S8S 

-»08  PI         =  Pi   +  (DATA(20,J+  3)  -  PATA(20,J+  1)  +  PBARO  )tl  00*1 000 

-.19  P23       =  P23  +  (DATA(20,.T+  4)  -  DATA(20,J+  1)  +  PBARO)  *t  00*1  00  0 

;i0  P4        =  P4   ♦  (DATA(20,J+  5)  -  PATA<20,J+  1)  +  PBARO >* 1 0 0*1 0 C 0 

311  PREF  =  PREF+   DAI A( 20 , J+l 4 >  *  100  *  1000 

312  RPM  =  RPM  ♦   DATA(2I)  ,  j  +  fa)   *  10 

Hi  RADTS     =  RADIS*(DATA(5o ;  J+8 > +DATA ( 20 ,  J  +  l 0 > +OATA ( 20 ,J+12) )/3*1000 

314  YAW  =  YAU  ♦   DATA ( 20 . J+9 >  *  10000 

315  070  TT2  =  TT2    +  ( DATA( 20 , J+lS )  ♦  DATA ( 20 , J H 6 > )  *  1000 

316  PI  =  PI    /  9 

317  P23  =  P23  /  9 
118  P4         =  P4   /  9 
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T«8 


&RPMF// 

t 

PADIS 

/  9 

5. SI  ■ 

-  RADIS 

YAW  / 

9 

TT2  / 

9 

31 .9557  ♦  30 

,6827  * 

TT2  -  0 

.3679 

<  (TT2 

-  32)  l 

«  S  /  9 

>  ♦  273 

.15 

SORT  < 

2008  *  TT2  > 

(RPM  / 

'  60)  * 

RADIS  1 

1  2  »  3. 

14159 

U    / 

VT2 

(  PI  - 

•  P23  > 

/  PI 

(  PI  ■ 

-  P4   ) 

/  (  PI 

-  P23  ) 

GAMMA 

*  BETA 

'319         PREF 
.320         RPM 

321         PADIS 
•322         RADIS 

323         YAW 
:324         TT2 

325  TT2       «=  31.9557  ♦  30.6827  »  TT2  -  0.3679  •  TT2  *  TT2 

326  TT2 

327  VT2 

328  U         ■  (RPM  /  60)  *  RADIS  *  2  *  3.14159  *  0.0254 

329  XU 

330  BETA 

331  GAMMA 

332  DELTA 
333 

334  XVEL      =0.0 

335  PHI       =0.0 

336  DO  075  II  =  1,7,1 
'337         DO  075  12  =  1,7,1 

338         XVEL      =  XYEL  +  ( COEOX ( 1 1 , 12 ) *DELTA«* ( 12- 1 ) )*GAMMA**( 1 1-1  ) 
.339     075  PHI       ■  PHI   +  <COEOP( II , I2>*DELTA**( 12-1 ) >*GAMMA**(  I  1-1  ) 

^40  XM        =  SORT  ( (2/( 1 .402-1 >>*( ( XVEL*XVEL ) / ( 1- ( XVEL*XVEL)  ))  > 

.341         PTOTAL    =  PI 

342         PSTAT     =  PTOTAL  *  ( 1 -XYELIXVEL ) ** ( 1 . 402/ . 402 > 
)343         URITE  (LI, 360)  PTOTAL .PSTAT ,XVEL, XM, PHI , YAU 

,344  IF  (  LO  .NE.  0  )  WRITE  (LO.360)  PTOTAL , PSTAT , XVEL , XM , PHI , YAW 

-345  C      

346  C 

:347  C      .     PERFORM  ONLINE  CALIBRATION.  A-PRDBE  FIRST. 

.348  C 

3349  C      

350 

'351  C      

:3S2  C 

.353  C  .  FIND    MAXIMUM    OUTPUT    OF    A-PROBE. 

.',354  C 

355  C  

•356  DO    080    I    -    1.9,1 

1357  J  =    (1-1)    «    20 

;.3S8  XKI)  =    DATA(20,  J  +  ll)    *    10000    *    3.14159    /     180 

T.359  080    Y     (I)  =    DATA(20,  J  +  17) 

360  CALL    MAT2     ( 9  ,S , COEF , -4 > 

1361  C       

J362  C 

1363  C      .   INITIAL  ESTIMATE  FOR  THE  APPROXIMATION  IS  : YAU  =  22  (den) 

,364  C 

365  C       

"366         X0         =  0.4 

.367     085  DEAMAX    =  FND  (4.COEF.X0) 

i368  IFIABS(DEAMAX)  .  LT  .  0.0001  )  GOTO  090 

!369         X0  =  X0  -  DEAMAX  /  ( 2»CGEF < 3 > +6»COEF ( 4 ) *X0+12*COEF < 5 ) *XO*X0 > 

,370         GOTO  085 

.371     090  EAMAX     =  FNP < 4 , COEF  .  X0 > 

:372  SLOPEA    =  (DATA(1,160)  +  DATA( 1 , 180 > ) / ( -2 . 0 > *  1 0 0*1 0 00 

.373         PHI       *  PHI  *  3.14159  /  180. 

1374  C       

;375  C 

376  C       .    CALCULATE  CP0A(EO3)  FROM  COMBINATION  PROBE  RESULTS  (PITCH) 

"377  C 

378  C      

:379        EQ3      =  FNP  (4.CP0A.PHI) 

j3B0  PAMAX  =    E03    *     ( PTOTAL-PSTAT )     ♦    PSTAT 

J381  SECTA  =    PAMAX    -    PREF    -    SLOPEA    *    EAMAX 

382  P0A  =    SECTA    +    SLOPEA    *    EAMAX    ♦    PREF 

'383  IF     (     IPRINT     . NE .     ?HYE     )     GOTO    095 

)384  WRITE     (LI. 365)    SECTA, SLOPEA 

■385  IF    (LO     .NE.     0     )    WRITE    (L0.365)     SECTA,SLOPEA 

386  095    CONTINUE 

337  C      

-  100  p 

"39  C         B-PROBE  CALIBRATION. 

390  C      .   FIND  MAXIMUM  OUTPUT  FIRST. 

5391  C 

392  C       ... 

393  DO  100  I  «'i, 8,1 


394  J        =  (  1-1)  *  20 

395  XKI)     =  DATA(20  ,  J  +  13)  *  10000  *  3.14159  /  180 
3<»6  100  Y  (I)     =  DATA(20,  J  +  18) 
397         CALL  MAT2  <8,S,C0EF ,-4> 
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0399 
0400 
0401 
0402 
0403 
0404 
040S 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0  420 
0421 
U422 
0423 
0424 
042S- 
0426 
0427 
0428 
0  429 
0430 
0431 
0432 
3433 
0434 
343S 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
'  0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0  451 
0  452 
0  453 
0454 
'1455 
0  456 
■'.457 
0458 
^459 
'460 
0461 
"462 
0463 
J  464 
0465 
?4b6 
•:467 
!4fa8 
169 
0470 
0  471 

3#5 

0  474 
0  475 
1476 

r,477 
•4  78 


105 


110 


115 


120 


125 


INITIAL  ESTIMATE  FOR  THE  APPROXIMATION  IS  i  YAW  =  0  (deg) 

xo ='6!6 

DEBMA     =  END  <4,COEF,X0) 

IF  (ABS(DEBMA)   .LT.  0.00001  )  GOTO  110 

X0        =  X0  -  DEBMA   /  (2*COEF(3)+6*COEF(4)*X0+12*COEF(5)*XO*X0) 

GOTO  10S 

EBMAX     =  FNP  (4.COEF.X0) 

PSTATA    =  PSTAT  -  PREF 

EQS       =0.0 

CALCULATE  CP0B  FROM  COMBINATION  PROBE  RESULTS. 

M'iis'ii'i'i'.s',  i 

DO  US  Jl  =•  1.5,1 

EQS       ■  EQS  +  (  COECPB(  II  ,  Jl  >»XVEL**(  Jl-1  >  >*PHI**(  11-1  ) 

WRITE  (LI, 370)  EQ3.EQS 

IF  (LO  .NE.  0>  URITE  (LO,370)  EQ3.EQ5 

P0B       =  EQS  *  (PTOTAL-PSTAT)  ♦  PSTAT 

PKB       =  P0B  ♦  PREF 

SLOPEB    =  (DATAO.170)  ♦  DATA(1,190)  )  /  (-2. 

SECTB     =  PKB  -  PREF  -  SLOPEB  «  EBMAX 

IF  (  IPRINT  ,NE.  2HYE  )  GOTO  120 

URITE  (LI, 375)  SECTB, SLOPEB 

IF  (LO  .NE.  0  )  URITE  (10,375)  SECTB, SLOPEB 

CONTINUE 


START  DATA  REDUCTION. 

FIRST  CALCULATE  THE  AVERAGE  FLOW  PARAMETERS  USING  THE 
OVERALL  VALUES  FROM  THE  A  AND  B  PROBE  AND  THE  JUST 
ESTABLISHED  CALIBRTION. 


DO  125  I  =  1.9.1 

J  ■  (1-1  )  *  20 

PAA(I)  =  DATA(20, J  +  17) 

PAB(I)  =  DATA(20, J+18) 

PAA(I)  =  SECTA  +  SLOPEA  *  PAA(I) 

PAB(I>  =  SECTB  +  SLOPEB  *  PAB(I) 

YAUA(I)  =  DATA(20 , J>11 >  *  10000 

YAUB(I)  ■  DATA(2(1  ,  J  +  13)  *  10000 

IF  (  IPRINT  .NE.  2HYE  )  GOTO  135 


0)  *  100*1000 


D AT A(20,J+14)*1 00*1000 
DATA(20,J*14)*100*1000 


URITE  (LI. 383) 

IF  (LO  .NE.  0  )  URITE  (LO,3G0) 

DO  130  I  =  1,9.1 

URITE (LI  ,385)  I ,P AA( I )  ,  PAB ( I  )  , YAUA(I )  ,YAUB< I) 
130  IF(LO   NE.  0)  URITE(L0,385)  I  ,PAA( I  )  ,PAB( I ) , YAWA( I ) , YAUB( I ) 
135  CONTINUE 


'.                APPROXIMATE  A- 

-PROBE 

PRESSURES.                                '. 

140 

DO  140  I 
Xi(I) 
Y  (1) 
CALL  MAT 

=  1,9,1 
=  YAUA(I) 
=  PAA  ( I ) 
2  (9,5,C0EF 

,-4) 

FIND 

MAX.  OUTPUT 

OF  A 

PROBE.                                       '■ 

DX         =   126.0 
X0        =   -40,0 
145  DP         =  (FNP<4 ,COEF  .X0 > 

IF  (ABS(DP)  .LT.  0.0001  )  " 


-  FNP(4,C0EF, (X0+DX) ) ) 
OTC  ISO 


DPX 


X0 

GOTO  145 
150  ASL 
ASR 
AA0 
PAMAX 


-2.0*COEF(3)*DX-6. 0*COEF ( 4 ) *X0*DX-3 . 0*COEF ( 4 ) *DX*PX- 

12.  O*COEFi5)*X0*XO*DX-t2*COEF*S)*XO*DX*DX-4. 0*COEF  <  5 ) *DX**3 


?=0*gOEF^5)*Xg*J0»DX-12. 


xo 
XO 

xo 


DX 

D  < 


=     FNP(4 .COEF. AAO 
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479  PSAL       =  FNP(4,C0EF,ASL> 

480  PSAR       =  FNP(4,C0EF  ASR) 

481  PSA       =  (PSAL  +  PSAR  )  /  2.0 
182 

483  BETA      =  (PAMAX  -  PSA  >  /  PAMAX 

484  CPAMAX    =  (PAMAX  -  PSA  )  /  (  PTOTAL  -  PSA  > 

485  IF  (  IPRINT  . HE .  2HYE  )  GOTO  1S5 

486  WRITE  (LI.390)  ASL ,AA0 , ASR .PSAL .PAMAX .PSAR , CPAMAX 

487  IF  (LO  .NE.  0  )  WRITE  (LO,390)  ASL , AAO , ASR , PSAL , PAMAX , PSAR , CPAMAX 

488  155  CONTINUE 

489  C       

490  C 

491  C  APPROXIMATE    B    PROBE    PRESSURES. 

492  C 

493  C  

'494  DO    160     I    =■    1,9,1 

495  X1(I>  =    YAWB(I) 

1496  160    Y     (I)  =    PAB     (I) 

•497  CALL    AAT2     <  9  ,5  ,COEF  ,  -4  ) 

498  C  

499  C 

500  C  .  FIND    MAXIMUM    OUTPUT    OF    B-PROBE. 

501  C 

502  C  

1903  XO  =      0.00 

304     165  DPX        ■  FND(4 .COEF.X0) 
J50S         IF  <  ABS(DPX)  ,LT.  0.00001  )  GOTO  170 

506  X0    =  X0  -  DPX  /(2»C0EF<3>  ♦  6*COEF(4)*X0  +  12*C0EF ( 5 ) *X0*X0 ) 

507  GOTO  165 

.508     170  ABO        =  X0 

"509  PBMAX     =  FNP(4,COEF,AB0) 

510  IF  (  IPRINT  .NE.  2HYE  )  GOTO  175 

511  WRITE  (LI, 395)  ABO. PBMAX 

312         IF  (  LO  .NE.  0  )  WRITE  CL0.39S)  ABO, PBMAX 
.513     17S  CONTINUE 
314  CPBMAX    =  (  PBMAX  -  PSA  >  /  (PTOTAL  -  PSA  > 

515  GAMMA     =  (CPAMAX  -  CPBMAX  )  /  CPAMAX 

516  XVEL      =0.0 
■517          PHI        =  0.0 

.518         DO  180  II  =  1,7,1 
'519         DO  180  12  =  1,7,1 

520  XVEL      =  XVEL  ♦  (COEKXdl  ,12)  *GAMMA*»  (  12-1  )  )  *  BETAt*(Il-l) 

J521      180  PHI        =  PHI   +  (COEKPdl  .  12)  *GAMMA«* ( 12-1  > > *  BETA**(I1-1) 

522  PHI       =  PHI   *  180  /  3.14159 

523  XAX     =  XVEL  *  COS ( PHI *3 . 1 4159/ 180 )  *  COS ( AB0*3 .1 4159/180 ) 

'524  8ETA2   =  ATAN( ( XU-XVEL»COS( PH I *3 . 1 41SV/ 180 ) *SIN < AB0*3 . 14 1S9/180 ) > 

.525        *  /  XAX)  *  180  /  3.14159 

526  WRITE  (LI, 400)  BETA  ,  GAMMA  .  XVEL,  PHI  ,  ABO  .  XU  ,  XAX  ,  BETA2 

527  IF(LO  .NE.  0)  WRITE  (LO,400)  BETA , GAMMA , XVEL , PHI , ABO , XU , XAX , KETA2 


528  C 

529  C 

m  g 


START  OF  DATA  REDUCTION  FOR  INDIVIDUAL  POSITIONS. 


332  C      

533 
;534 

535  C      

536  C 

537  C      .     Calculation  of  values  which  ore  valid  for  all  positions, 

538  C 

539  C      

540  WRITE  (LI, 405) 

541  IF  (  LO  .NE.  0  )  WRITE  (L0,405) 
342         DO  18S  I  =  1,9,1 

543  J  =  (I-i)  *  20 

544  YAWA(I)   =  DATA(20,  J  +  U  >  *  1000O 

545  YAWB(I)   =  DATA(20  ,  J  +  13)  *  10000 

546  18S  PREFP(I)  =  DATA(20,J+14)  »  100*1000 

547  C       

548  C 

"49  C  START  OF  DO  LOOP  ! 

'SO  C 

551  C       

552  DO  270  I  =  ISTART, IEND.l 

553  DO  190  J  =  1,   9,1 

554  Jl        =  J  *  2 

555  J2        ■  J  *  2  +  1 

556  PA(J)      =  DATA(J1,I)  *  0.01 

557  PB(J)      =  DATA(J2,I)  *  0.01 

558  PAU)      =  SECTA  +  SLOPEA  «  PA(JP  +  PREFPvJ) 
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3559  190  PB<J>     ■  SECTB  +  SLOPEB  *  PB(J>  +  PREFP(J) 

3560  C       

J561  C 

0562  C         Appronnate  A-prob«  output. 

'1563  C      .  H 

0564  C      

1565         DO  19S  II  =  1,9,1 

566  XKI1)     =  YAWAdD 

i67     195  Y  < II )     =  PA   (  II  > 
.568  CALL  MAT2  ( 9  .  5 , COEF  ,  -4 > 

1569         DO  200  11=1,9,1 

570  200  PAC(ID    =  FNP  ( 4 , COEF , YAUA( I 1 > > 

571  C 

.572  C 

.573  C         FIND  MAX.  OUTPUT  OF  A  PROBE. 

574  C 

575  C  

•576  DX         ■       126.0 

577  XO  =       -40.0 

578  205  DP    =  <FNP(4,COEF,X0)  -  FNP < 4  COEF , ( X0  +  DX >  )  ) 

579  IF  (ABS(DP)  ,CT.  (1.U01  )  COTfl  210 

580  DPX   ■  -2. 0*C0Ec(3)*DX-6 . QtCOEF (4>*X0*DX-3 . 0*COEF< 4>*DX*DX- 

581  *        12. 0*COEF(S>*X0*DX*DX-12*CO£F(5)*X0*X0*DX-4. 0 *COEF < 5 > *DX**3 

582  X0    =  X0  -  DP  /  DPX 

583  GOTO  205 

584  210  ASL   =  X0 

585  ASR   =  X0  ♦  DX 

586  AA0   =  X0  *  DX  /  2.0 
.587         PAHAX=  FNP<4,C0EF, AAO > 

588  PSAL  =  FNP (4, COEF , ASL) 

.589         PSAR  *  FNP(4,CGFF,ASR > 
590  PSA   =  (PSAL  ♦  PSAR  )  /  2.0 

S91 

592  BETA  ■  (PAhAX  -  PSA  )  /  PAMAX 

593  CPAMAX=  (PAMAX  -  PSA  )  /  (  PTOTAL  -  PSA  ) 
S'4  IF  (IPRINT  .NE.  2HYE  )  GOTO  215 

^9S  URITE  (LI. 390)  ASL  ,AA0  ,  ASR  .PSAL  .PAMAX , PSAR , CP AMAX 

596  IF  <LO   NE .  0  )  WRITE  (LO,390>  ASL , Art6 , ASR  ,  PSAL  ,  PAMAX  ,  PSAR , CPAHAX 

.597     215  CONTINUE 

598  C       

599  C 

600  C      .    APPROXIMATE  B  PROBE  PRESSURES. 
,601  C 

:602  C       

•603  DO    220    II    »    1,9,1 

60<»  Xi(Il)  =    YAWB(Il) 

•60S  220    Y     (  II  )  =    PR       (ID 

606  CALL    MAT2     < 9  .5 , COEF  ,  -4 ) 

607  IF     (IPRINT       NE.     2HYE     )    GOTO    225 
60B  URITE     (LI, 410) 

009  IF     (LO     . NE.     0     )     WRITE     (LO.410) 

010  225  CONTINUE 

6 1  1  C        

612  C 

ol3  C       .      CALCULATE  AND  PRINT  QUALITY  OF  APPROXIMATIONS. 

614  C 

615  C       

616  DO  230  II  =  1,9,1 

617  PBC        =  FNP  (  4.C0FF  ,YAUD(  II  )  ) 

618  DPA        =  PA(Il)  -  PAC(Il) 

619  DPB        =  PB( II )  -  PBC 

o20         IF  (IPRINT  .NE.  2HYE  )  GOTO  230 

621  URITE  (LI, 415)  II  ,  YAUACIi  )  ,PA(  ID  ,  P  AC  (  1 1  >  ,DPA,YAUB(  ID  .PB'.Il  )  ,PBC, 

o22         *DPB 

623  IF  (LO  . NF .  0)  URITE  (L0,415)  1 1  ,  Y AUA ( I D  ,  PA(  1 1  )  ,  P AC ( 1 1 )  ,  DP  A  , 

•624         *YAWB( II ) ,PB( I D , PBC, DPB 
o2S     230  CONTINUE 

326  C       

6'37  C  ■ 

■^28  C       '.  FIND  MAXIMUM  OUTPUT  OF  B-PROBE  . 

-29  C 

.,30  C       

031  X0  =  10.00 

032  235  DPX        =  FND(4 ,CQEF  ,X0)  „  „„  „  „ 
:o33         IF  (  ABS(DPX)  ,Lt!  0.001  )  GOTO  240 

634  X0    =  X0  -  DPX  /(2*COEF(3)  +  6*COEF(4)»X0  +  12*C0EF ( 5 ) *X0*X0  ) 

635  GOTO  235 

-•36     240  ABO         =  X0 

637  PBMAX       =  FNP(4,COEF .AF0  ) 

638  IF  (IPRINT  .  NE .  2HYE  >  UOTC1  245 
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,639  URITE  (LI, 395)  ABO.PBMAX 

640  IF  (  LO  .NE.  0  )  URITE  <L0,39S>  ABO.PBMAX 
•641      245  CONTINUE 

642  CPBMAX     =  (  PBMAX  -  PSA  )  /  (PTOTAL  -  PSA  ) 

•643  GAMMA       =  (CPAMAX  -  CPBMAX  )  /  CPAMAX 

o44  XVEL        =  0.0 

>64S  PHI         =  0.0 

646  DO  2S0  II  =  1,7,1 

-j47  DO  250  12  =  1,7,1 

^48  XVEL        =  XVEL  +  (C0EKX(I1,I2)  XGAMMA** ( 12-1 ) ) *  PETA**  <  1 1-1  > 

649  250  PHI         =  PHI   +  (COEKP  (  1 1  ,  12  )  *GAMMA»* ( 12-1 ) > *  E<ETA*»  <  1 1  -  1  ) 

650  IP  (IPRINT  .NE.  2HYE  )  GOTO  265 

651  PSTAT      =  PAMAX  *  (  1  -  XVEL*XVEL  )  **  3.5 

652  WRITE  (LI, 420)  PSTAT 

653  IF  (LO  .NE.  0  )  URITE  <LO,420)  PSTAT 
o54  URITE  (LI, 425) 

»SS  IF  (LO  .NE.  0  )  WRITE  (L0.425) 

656  DO  260  II  »  1,9.1 

657  CPA         =  (PA(I1)  -  PSTAT)  /  (PAMAX  -  PSTAT) 
1658  YAW         =  YAUA<I1>-  ABO 

659  URITE  (LI, 430)  Il.YAW.CPA 

660  IF  <LO  .NE.  0  )  WRITE  (LO,430)  I1,YAU,CPA 

661  260  CONTINUE 

662  265  CONTINUE 

*63  PHI        =  PHI   *   180  /  3.14159 

6o4  BETA2     «  ATAN  ((XU  -  XVEL  *  SIN(AB0  *  3.14159  /  180)  » 

665  *  COS(PHI  *  3.14159  /  lO0)>  / 

66b  »  (XVEL*COS< AB0*3. 1 4159/ 130 ) »C03( PHI *3 . 14159/180) ) )* 

667  *  180  /  3.141S9 

a68   C  

669   C 

6?0   C  .      PRINT  FLOW  VECTOR  QUANTITIES  FOR  INDIVIDUAL  POSITIONS. 

o?l   C 

672  C  

673  URITE  (LI.43S)  I , BETA , GAMMA , XVEL, PHI , ABO , BETA2 

674  IF  (LO  .NE.  0)  WRITE  (L0,43S>  I , BETA , GAMMA , XVEL , PHI , ABO , BETA2 

675  RDATA(1,I)  =  XVEL 

676  RDATA<2, I )  =  PHI 

677  RDATA(3,I)  =  ABO 

678  270  CONTINUE 
*>79 

630   C  

681   C 

632   C  STORE  REDUCED  DATA  IN  A  DATA  FILE. 

683   C 

634   C  

685  IL        =   1536 

636  ISIZE(2>  =     12 

687  URITE  (LI, 440)  NOLF 

683  READ   (LI, 340)  IF ILE  ,  ISECU , ICR 

689  CALL   CREAT  ( IDCB , IERR , IF ILE , ISIZE , ITYPE , ISECU , ICR , IDCBS ) 

-,90  JJ  =  16 

:>9i  IF  (IERR  .LT.  0  )  WR ITE < 1 , 1 1 1 1  >  JJ.IERR 

692  CALL   OPEN  ( IDCB , IERR , IFILE , IOPTN, ISECU , ICR , IDCBS ) 

693  JJ    =    17 

694  IF     (IERR     . LT .     0     >     UR ITE < 1 , 1 1 1 1  )     JJ.IERR 

695  CALL       WRITF     <  I  DCB  ,  IE1RR  ,  RDATA  ,  IL  ) 

696  JJ    =    18 

697  IF  (IERR  .LT.  0  )  UR ITE( 1 , 1 1 1 1 )  JJ,IERR 

698  CALL   CLOSE  ( IDCB ,  IERR  ,  0 > 
.99  JJ  =  19 

'00  IF  (IERR  .LT.  0  >  WR I TE( 1 , 1 1 1 1 )  JJ,IERR 

"'01  URITE  (LI, 445)  IFILE. ICR 

?02  IF  (LO  .NE.  0  )  WRITE  (L0.445)  IFILE, ICR 

"03  STOP  7777 

^04  END 

"•OS  REAL  FUNCTION  FNP  (  NORDER  ,COEFF  ,  ZX  ) 

"06  REAL  C0EFF(7> 

"07  Al  *  COEFF(NORDER  +  l  ) 

708  IF  (  NORDER  ,EQ.  0  )  GOTO  02 

"59  DO  01  II  =  1, NORDER, 1 

"10  I  =  NORDER  +1-11 

^ii      01   Al=  COEFF( I)+ZX*A1 

"12     02   FNP  =  Al 

?13  RFTURN 

"14  END 

"15  REAL  FUNCTION  FND ( NORDER , CQEFF , ZX > 

716  REAL  COFFF  ,?\ 

"17  REAL  C0EFFP16) 

"18  DO  01  1  =  1  .NORDER  ,  1 

77i9    oi  coeffd=(^f=fS?efofr^^)»i 

721  NORDR=  NORDER  -  1 

i722  IF(  NORDR   .EO.  0  )  GOTO  03 

723  DO  02  II  =  1, NORDR.  1 

724  I  «  (NORDR  ♦  1)  -ii 

725  02   Al  =  COEFFD(I)fZX»Al 

726  03   FND  =A1 
"27  RETURN 
728  END 


Figure   J-2.       Listing   of    Data   Reduction   Program    SABRED, 
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APPENDIX    K 
PLOTT    PROGRAMS    FOR    REDUCED    DATA 

The  plot  programs  &PLOTX,  &PLOTY  and  &PLOTP  can  be  used 
to  produce  plots  of  the  results  obtained  from  the  A  and  B 
probe.   They  are  all  almost  identical  except  for  which  quanti- 
ties of  the  flow  vector  they  plot  and  the  corresponding  limits 
of  the  plots.   Only  one  program  description  and  one  flow  chart 
are  given  and  the  differences  between  the  three  programs  are 
pointed  out  where  they  appear. 

First,  the  program  asks  the  user  to  key  in  the  name  of  the 
data  file  containing  the  reduced  data  along  with  its  cartridge 
reference  number.   This  file  is  then  read  into  an  array 
DATA(3,256).   The  user  has  to  decide  whether  he  would  like  a 
plot  on  the  X-Y  plotter  or  just  on  the  screen.   Plots  on  the 
screen  are  much  faster  than  those  from  the  X-Y  plotter  and  it 
is  often  only  necessary  to  get  a  fast  idea  of  the  general 
value  of  the  reduced  data.   However,  X-Y  plots  are  rather  use- 
ful for  documentation  purposes.   Once  this  decision  is  made 
either  way,  the  use  of  the  plot  has  to  be  specified.   This 
must  be  done  at  any  time  the  program  is  used.   The  physical 
dimensions  of  the  plot  have  to  be  matched  to  the  particular 
needs  of  the  user. 

Plot  sizes  have  to  be  given  in  inches  times  ten.   One 
inch  is  set  equal  to  25  millimeters  (instead  of  25.4  mm)  by 
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the  HP  plotter  software.   The  values  of  XMIN  and  YMIN  (lower 
left  corner  of  plot)  should  not  be  smaller  than  5.0  (Q.5  inches 
or  12.5  mm),  in  order  to  leave  sufficient  space  for  the  line 
titles.   It  is  advisable  to  scale  the  lengths  of  the  axes  in 
a  way  that  even  measures  in  inches  correspond  to  even  numbers 
of  the  quantities  plotted.   For  example,  10  degrees  in  yaw 
angle  equivalent  to  1  inch.   Following  are  the  limits  of  the 
quantities  to  be  plotted: 

For  all  programs:   0  -   circumferential  position  S    256 

Program  PCOTX:      0.12  <  X  (Mach  number  equivalent)  ^  Q.2Q 

Program  PCOTP :      -4°  <  pitch  angle  £  16° 

Program  PCOTY:      10°  <  yaw  angle  ^  50° 

Before  the  programs  are  used,  the  operator  should  check  to 
see  if  his  data  falls  within  these  limits.   If  it  exceeds  any 
limits,  adjustments  have  to  be  made  in  the  corresponding  pro- 
gram line  #67. 

In  order  to  compare  different  sets  of  data  it  is  often 
helpful  to  plot  the  data  from  two  or  more  files  on  one  plot. 
To  avoid  having  the  same  grid  plotted  any  time  one  set  of  data 
is  plotted,  the  user  has  to  specify  whether  he  wants  to  have 
a  full  grid  (frame)  plotted  or  not.   He  is  also  given  a  choice 
of  7  different  line  styles  in  order  to  distinguish  similar 
but  different  data.   For  details  of  the  line  styles  and  plot 
software  details  see  Ref.  11. 

Once  all  this  input  is  given  the  desired  program  will 
produce  a  plot  as  specified.   In  case  of  the  X-Y  plotter  the 
number  one  pen  is  selected  automatically  by  the  program. 
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Thus  the  user  should  make  sure  that  a  good  pen  of  the  right 
color  is  inserted  in  that  slot.  When  the  complete  graph  is 
drawn,  the  program  will  stop. 

Figure  K-l  gives  a  flow  chart  of  the  program  while  Fig. 
K-2  is  a  program  listing. 


Esternals:   CLOSE,  DRAW,  FXD ,  MOVE,  OPEN,  PLOTR,  READF ,  SETAR, 
VIEWP ,  WINDW 


Variable 
DATA (3,256) 
I  BUM 
ICR 
ID 

IDCB(144) 
IDCBS 
IDUM 
IFILE(3) 
IGCB(192) 
IL 

ILINE 
ISECU 
ISIZE(2) 


Type 

Real 
Integer 
Integer 
Integer 
Integer 
Integer 
Integer 
Integer 
Integer 
Integer 

Integer 
Integer 
Integer 


ITYPE 

Integer 

LU 

Integer 

X(256) 

Real 

Description 
Reduced  data  array 
Dummy  variable 
Cartridge  reference  number 

Data  control  block 

Control  block  length  (of  IDCB) 

Dummy  variable 

Array  containing  file  name 

Graphic  data  control  block 

Total  number  of  words  to  be  stored 
in  raw  data  file  (two  words  for  one 
data  value) 

Line  style  determinator 

Security  code 

Array  to  specify  file  dimensions  (1st 
word  for  number  of  records,  2nd  for 
record  length) 

Type  of  data  file 

Output  device  number  (screen/plotter) 

Data  array  for  X  values 
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Variable 
XiMAX 

XMIN 

Y(256) 
YMAX 

YMIN 


Type  Description 

Real     Maximum  value  of  physical  plot  size 
(right  side) 

Real     Minimum  value  of  physical  plot  size 
(left  side) 

Real      Data  array  for  Y  values 

Real     Maximum  value  of  physical  plot  size 
(upper  limit) 

Real     Minimum  value  of  physical  plot  size 
(lower  limit) 
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c 


;TART 


} 


IIVFhD     DA  I  A     1-J.Ll:-1 


llN|;'ur  f[l)iv:>\lf\ 


PLOTT  DA i A  USING 
LINE  STYLE  AS  DES [RED 


C 


STOP 


3 


Figure  K-l.  Flow  Chart  of  Plot  Programs  iPLOTX,  &PLOTY  or  &PLOTP . 
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f'LOTX    T=Q0004    IS    ON    CR00026    USING    00014    BLKS    R=0000 

001  FTN4.L 

U12  PROGRAM  PLOTX  (3,9?) 

I ')  0  3  C       

:  fl  0  4  C 

005  C            THIS  IS  PROGRAM  PLOTX(vel) 

.006  C 

007  C            IT  PLOTTS  X  (MACHNUMBER)  DISTRIBUTIONS  AS  ESTABLISHED  WITH 

h)08  C      .     PROGRAM  ABRED. 

10?  C       .      X  IS  EQUIVALENT  TO  MACHNUMBER  AND  GIVEN  AS  A  FUNCTION  OF 

1010  C      .     CIRCUMFERRENTIAL  POSITION. 

'HI  C 

'012  C           ACTUAL  PLOTTSIZE  IS  USER  INPUT. 

')  1  3  C 

014  C      

■015  DIMENSION    IGCB(1?2> 

016  REAL  DATA(4,2S6>  ,X(2S6> ,Y(2S6> 

017  INTEGER    I DCB<  144  )  , If ILE ( 3 ) , IS IZE ( 2 ) 
013  DATA        IDCBS     /   144/ 

01?  DATA       ISECU     /    00/ 

020  DATA  ITYPE     /     1/ 

021  DATA  IL         /  2048/ 
1022  DATA       ISIZE(i)  /    16/ 

023  DATA  ISIZE(2)  /   128/ 

024  100   FORMAT  ("Enter  the  none  of  the  data  file1") 

025  101   FORMAT  ("Enter  the  CR  nunbei-i") 

026  102   FURMAT<"  If  you  uant  the  plott  on  the  plotter,  key  PL,  onythinqels 

027  *.»  for  the  terminal  !") 

'i28  103   FORMAT  ("Enter  Xplotnxn  !  ■• ) 

i029  104   FORMAT  ("Enter  Xplotnax  !") 

030  10S   FORMAT  ("Enter  Yplotmn  !") 

031  106   FORMAT  ("Enter  Yplotnax  !"> 

D32  107   FQRMAT("  Do  you  need  a  complete  new  frane?"/"  Answer  YES  or  NO1") 

'033  108   FORMAT  ("  Enter  line  style   (0  -  6)  '"> 

hi  34  149   FORMAT  <(3A2>> 

'035  1111   FORMAT  (  "  STATEMENT  *  :"I3"  ERROR  *  I  "14"  DETECTED") 

n)36  LI  =  LOGLU<  ISESSN) 

0  37  URITE  (LI,  100) 

■038  READ   (LI, 149)  IFILE 

0  5?  URITE  (LI,  101) 

H40  READ   (LI,   *)  ICR 

'41  CALL  OPEN   ( 1DCB  ,  IERR  ,  IFILE  ,  IOPTN , ISECU , ICR , IDCBS) 

0  42  J J  =  1 

043  IF  (IERR  .LT.  0  )  URITE  (LI. 1111)  JJ.IERR 

(044  CALL  READF  < IDCB, IERR , DATA, IL , LEN, 1 ) 

045  JJ  =  2 

04*  IF  (IERR  .LT.  0  )  WRITE  (LI, 1111)  JJ,IERR 

047  JJ  =  3 

043  CALL  CLOSE  <  IDCB,  IERR  ,0 > 

04?  IF  (IERR   LT.  0  5  URITE  (LI, 1111)  JJ.IERR 

0S0  LU  =  1 

r.i  id  =  i 

'052  URITE  (LI,  102) 

0V3  READ   (LI  ,  14?)  I  BUM 

OS4  IF  (IBUM   EQ.  2HPL  )  ID  =  2 

1S5  IF  (ID    .EQ.  2     )  LU  =  13 

0  56  WRITE  (LI , 103) 

057  READ   (LI,   t)  XMIN 

058  URITE  <LI, 104) 

"'■?  READ   (LI,   »)  XMAX 

060  URITE  <LI,  10  "5  ) 

161  READ   (LI,   *)  YMIN 

062  URITE  (LI, 106) 

'063  READ   (LI,   »)  YMAX 

■0t4  CALL  PLOTS  ( IGCB, ID, 1 ,LU) 

165  CALL  SETAR  (IGCB, 1.3) 

066  CALL  VIEUP  ( IGCB, XMIN  .XMAX, YMIN, YMAX) 

1067  CALL  UINDU  ( IGCB , 0 . 0 , 2S6 . 0 , 0 . 18, 0 . 24 ) 

I6H  URITE  (LI, 107) 

06?  READ   (LI, 14?)  IDUM 

070  URITE  (LI, 108) 

071  READ   (LI,   *)  ILIME 

072  CALL  LIKE  (IGCB.ILINE) 

073  IF  (  IDUM  ,NE.  2HYE  )  GOTO   05 

074  CALL  FXD    ( IGCB.2) 
i07S  CALL  PEN    (IGCB.l) 

076  CALL  LGRID  ( IGCB , - 16 .  ,  .  0 1  ,  0  .  0  ,  0  .  12  ,  4 . 0  ,2 . 0 , 1 . 0 ) 

077  05  CONTINUE 

078  CALL  MOVE   (  IGCB  ,  0  .  0  ,  DATA(  1  , 1 )  > 

Ml  8?  10  l  i  K5??* 

081  10  CALL  DRAW   ( IGCB , X J , DATA( 1 , I ) > 

002  STOP  7777 

003  END 


Figure   K-2.      Listing   of   Reduced  Data  Plott  Program    &PLOTX 
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